Select Code to Download

@AoA = (
[ "n1", "34" ],
...
[ "n2", "1" ],
[ "n4", "5" ],
);

@sorted = (
[ "n2", "1" ],
...
[ "n3", "14" ],
[ "n1", "34" ],
);

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