my @sortedAname = sort {$a->{keynum} <=> $b->{keynum}} (@Aname);