my (@index, @rand);
@index = 0 .. $#array;
push @rand, splice(@index, rand @index, 1) for 1 .. 10;
print "@array[@rand]\n";
# untested