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

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

use Data::Dumper; $Data::Dumper::Indent=1;die Dumper\@sorted;
__END__
$VAR1 = [
  [
    'n2',
    1
  ],
  [
    'n4',
    5
  ],
  [
    'n3',
    14
  ],
  [
    'n1',
    34
  ]
];