my $pseudoshuffle_with_hash = sub { my( $ref_array ) = shift; @{ $ref_array } = keys %{ {map { $_ => undef } @{ $ref_array }} }; };