$seen{$A[0]}) = undef;
$seen{$A[1]}) = undef;
$seen{$A[2]}) = undef;
$seen{$A[3]}) = undef;
...
##</code><code>##

@C = grep{!exists $seen{$_}} @B;
@merged = (@A, @C);