Help for this page
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};