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;