sub GPA_sort {
    ( split /\t/, $students{ $a } )[ -1 ]
        <=>
    ( split /\t/, $students{ $b } )[ -1 ]
    }