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