Select Code to Download

$students{0354} = "Fred\t3.2";
$students{4873} = "Tom\t2.9";
$students{1522} = "Susan\t4.0";

foreach $key(sort GPA_sort %students)
{
     #etc
}

sub GPA_sort
...
     $gpa_a <=> $gpa_b
}