while (keys %numbers < 10) { my $num = int( rand 20 ) + 1; $numbers{$num}++; }