Help for this page

Select Code to Download

Select or download this

my @sorted =
  map $_->[0],
...
  map [ $assorted[$_] => $_ ],
  0 .. $#assorted
;