@sorted = map { [ $_[0], $_[1] ] } sort { $a->[1] <=> $b->[1] } map { [ $_[0], $_[1] ] } @AoA;