$ perl -we'use Data::Dumper; ++$Data::Dumper::Sortkeys; ++$count{join "", sort \ {rand()<=>rand()}split //, "abcde"} for 1..100000; print Dumper \%count;'|less #### $ perl -we'use Data::Dumper; ++$Data::Dumper::Sortkeys; use List::Util "shuffle"; \ ++$count{join "", shuffle split //, "abcde"} for 1..100000; print Dumper \%count;'|less