use List::Util qw[ shuffle ];;
++$q{ join'',shuffle 'a'..'d' } for 1 .. 1e6;;

printf "$_ : %.2f%%\n", $q{$_} / 1e4 for sort keys %q;;
abcd : 4.18%
abdc : 4.12%
acbd : 4.14%
acdb : 4.20%
adbc : 4.17%
adcb : 4.18%
bacd : 4.15%
badc : 4.19%
bcad : 4.17%
bcda : 4.16%
bdac : 4.17%
bdca : 4.15%
cabd : 4.14%
cadb : 4.17%
cbad : 4.19%
cbda : 4.18%
cdab : 4.19%
cdba : 4.20%
dabc : 4.17%
dacb : 4.15%
dbac : 4.16%
dbca : 4.22%
dcab : 4.14%
dcba : 4.13%