my @by_stud = map { my $t = $scores{$_};
                   [sort { $t->{$b} <=> $t->{$a} } keys %{$t}] }
                     keys %scores;