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