Help for this page

Select Code to Download

Select or download this

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