Select Code to Download

sub bukShuffle {
    my( $r, $t );
...
    $array[ $r ] = $t
    for 0 .. $#array;
}

my %h;
bukShuffle( @array = qw[a b c d ] ), ++$h{ join ' ', @array } for 1 ..
+ 1e6;

pp %h;

[19:07:24.88] C:\test>junk50
(
...
  "c d b a",  41883,
)