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