++$h{ join'',sort{ rand() < rand() } 'a'..'d' } for 1 .. 1e6;;

 printf "$_ : %.2f%%\n", $h{$_} / 1e4 for sort keys %h;;
abcd : 12.48%
abdc : 12.47%
bacd : 12.48%
badc : 12.49%
cabd : 3.15%
cadb : 3.12%
cbad : 3.14%
cbda : 3.13%
cdab : 6.26%
cdba : 6.26%
dabc : 3.13%
dacb : 3.15%
dbac : 3.13%
dbca : 3.11%
dcab : 6.26%
dcba : 6.25%