$ for i in {1..1000} ; do PERL_HASH_SEED=0 perl -lwe '%x = qw(a b c d e f); print %x' ; done | sort | uniq -c
   1000 cdefab