If you want to perform a merge which removes the duplicates then you might want some thing like:

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

There are other examples in the perlfaq4

/J\