Sorting a Hash

Select or download this

 my $Rec = { 
                             
...
              
            push @{$AG{$rec->[10]}},$Rec;

Select or download this

foreach my $p ( sort { $$b{GRADE} <=> $$a{GRADE}} @{$AG}) {

...

}

Select or download this

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

Select Code to Download