my @new = do{
    my (%seen, $seen_undef);
    grep defined ? !$seen{$_}++ : !$seen_undef++, @a, @b, @c, @d;
};