@AoA = sort { $b->[1] <=> $a->[1] } @AoH;