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

##</code><code>##

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