my %seen;

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