my @num;
my @array = 1 .. 10;
for (1..3) {
    push @num, splice(@array, rand(@array), 1);
}