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

pp %h;