Help for this page

Select Code to Download

Select or download this

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

Select or download this

@random = sort { .5 <=> rand(1) } @array;    # DO NOT USE THIS!