for my $key (sort { substr($a, 0, 1) cmp substr($b, 0, 1) ||
                    substr($b, 0, 2) cmp substr($a, 0, 2) } keys %grades)
{
    for my $pos (sort { $a cmp $b } keys %{ $grades{$key} })
    {
        my $names = $grades{$key}->{$pos};
        my $count = scalar @$names;

        print $count, ' ', $key, ' ', $pos, ' ', $names->[0], "\n";
        print '        ', $names->[$_], "\n" for 1 .. $#$names;
    }
}