my $max = 10;
my $num = 5;
my %numhash;
for (1 .. $num) {
  my $randnum = int(rand($max) + 1);
  redo if exists ($numhash{$randnum});
  $numhash{$randnum} = 1;
}

for (keys (%numhash)) {
  print "$_\n";
}