Help for this page
++$h{ join'',sort{ rand() < rand() } 'a'..'d' } for 1 .. 1e6;; ... dbca : 3.11% dcab : 6.26% dcba : 6.25%
use List::Util qw[ shuffle ];; ++$q{ join'',shuffle 'a'..'d' } for 1 .. 1e6;; ... dbca : 4.22% dcab : 4.14% dcba : 4.13%