Select Code to Download

my @num = map { int( 1 + rand 10 ) } (1..3);

my %num;
while(keys %num < 3) {
...
   $num{$x}++ unless exists $num{$x};
}
my @num = keys %num;