Sorry, I don't post here often and didn't preview as well as I should have. That should obviously have been:

   my @shuffled = map { $_->[0] }
                  sort { $a->[1] <=> $b->[1] }
                  map {  [ $_, rand() ]  }
                  @unshuffled;
[download]