$ perl -e'system(perl => "-le %h = map { \$_=>1 } qw(a b c d); print keys %h") for 1..10'
cabd
cabd
cabd
cabd
cabd
cabd
cabd
cabd
cabd
cabd