Help for this page
my $Rec = { ... push @{$AG{$rec->[10]}},$Rec;
foreach my $p ( sort { $$b{GRADE} <=> $$a{GRADE}} @{$AG}) { ... }
SAMPLE DATA ... P4 , Health Officer, J. Pino, Germany, 9/19/1948 P3 , Health Officer,G. Brown, Greece, 5/15/1974 D1 , Health Officer, J. Hill, Syria, 2/10/1962