srand;
my @array = ("1","2","3","4","5","6","7","8","9","10");
for (1..3) {
        push(@num, $array[rand(@array)]);
}
foreach my $num (@num){ print"$num\n"; }