for my $x (0..9)
{
my $element = $quest[ rand @quest ];
print $element;
}