Select Code to Download

@sorted = sort { surname($a) cmp surname($b) } @lines;

sub surname {
  my $line = shift;
...
  my ($first, $last) = split(/ /, $fullname);
  return $last;
}