my %seen;
   my @out = grep( !$seen{$_}++, @A, @B)