my $Rec = { 
                             
              
                       
                       ORG_LEVEL_DESCRIP=>$rec->[10],
                       GRADE=>strip_hyphen($rec->[15]),  
                       POSITION=>$rec->[2],
                       NAME=>invert_name($rec->[16]),
                       AGE=>convert_date_to_age(trim($rec->[17])),
                       DATE_OF_BIRTH=>date_of_birth_cleansed($rec->[17]),
                       COUNTRY=>$rec->[19],
                           
                             
           };

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


##</code><code>##

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

.................

}


##</code><code>##

SAMPLE DATA

 P5 , Health Officer, M. Famzo, France, 1/1/1957
 P5 , Health Officer,S. Fey, United States, 4/16/1960
 P2 , Health Officer, F. Ban, France, 10/5/1966
 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