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

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

}