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