Select Code to Download

  my( $fname, $lname, $grades ) = /^(.*?) (\S*?) ([ 0-9]*)$/;

for (
  sort { $a->[1] cmp $b->[1] or $a->[0] cmp $b->[0] } 
...
) {
  print "@$_\n";
}