say sort +*, @array;

##</code><code>##

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