Or if you want an array ref result:

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