for my $x (0..9)
{
my $element = splice(@quest,rand @quest,1);
print $element;
}