Select Code to Download

#! perl
use strict;
...
push @{ $grades{$_->{GRADE}}{$_->{POSITION}} }, $_->{NAME} for @$RECOR
+D;

dd \%grades;

23:51 >perl 1008_SoPW.pl
{
...
}

23:51 >

for my $key (sort { substr($a, 0, 1) cmp substr($b, 0, 1) ||
                    substr($b, 0, 2) cmp substr($a, 0, 2) } keys %grad
+es)
...
        print '        ', $names->[$_], "\n" for 1 .. $#$names;
    }
}

23:51 >perl 1008_SoPW.pl
1 ADG JUNIOR OFFICER K. King
...
1 P1 GENERAL OFFICER K. King

23:53 >