Help for this page

Select Code to Download


  1. or download this
    $seen{$A[0]}) = undef;
$seen{$A[1]}) = undef;
$seen{$A[2]}) = undef;
$seen{$A[3]}) = undef;
...
  2. or download this
    @C = grep{!exists $seen{$_}} @B;
@merged = (@A, @C);