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

##</code><code>##

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