@arr=1..10;
for (1..3) {
  $i=int(rand(scalar @arr));
  push(@num,splice(@arr,$i,1));
}

foreach my $num (@num){ print"$num\n"; }