c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @ra = qw(x y z);
 printf '%s ', $ra[ rand @ra ] for 1 .. 20;
 print '';
 ;;
 my %h;
 $h{ $ra[ rand @ra ] }++ for 1 .. 1_000_000;
 dd \%h;
"
y y y x x z y y z z z y x z x y x y y x
{ "x" => 333660, "y" => 332908, z => 333432 }