Help for this page

Select Code to Download

Select or download this
```
say sort +*, @array;
```

Select or download this

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