Help for this page

Select Code to Download


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