Select Code to Download

my $elt;
$elt = $one[rand @one] until $elt and not grep $elt eq $_, @two;

my $elt; 
my %hash; 
@hash{@two} = (); 
$elt = $one[rand @one] until $elt and not $hash{$elt};