Select Code to Download

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

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