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