foreach my $A (sort keys %AG) {
    
     foreach my $p ( sort {   substr($$a{GRADE},0,1) cmp substr($$b{GRADE},0,1) || substr($$b{GRADE},0,2) cmp substr($$a{GRADE},0,2)} @{$AA{$A}})  {

 my( $grade_nums,$grade, $name,$position ) = ($p->{GRADE_NUMS},$p->{'GRADE'}, $p->{'NAME'},$p->{'POSITION'} );
        
        print   $grade_nums,$grade, $name,$position,"\n";   

        
}
 
}