Sortering

Hej!

Går det med ett enkelt kommando att sortera nedanstående utskrift från fil, så att arrayen sorteras efter efternamn?

//Brian

foreach $rec (@ODB){
	chomp($rec);
	($first,$last,$email)=split(/\|/,$rec);
print "<tr><td><font size='2'>$first</font></td><td><font size='2'>$last</font></td><td><font size='2'>$email</font></td><td><font size='2'><a href='edit_record.pl?first=$first&last=$last&email=$email'>Ändra</a> - <a href='edit.pl?action=delete&first=$first&last=$last&email=$email'>Radera</a></font></td></tr>\n";
}

sub byLastName { my(@a,@b); @a=split(/\|/,$a); @b=split(/\|/,$b); return ($a[1] cmp $b[1]); }
@ODB = sort byLastName @ODB;

------------------
/ J

Thanks!!