>>509
my @a = qw(1 3 1 .);
my @b = qw(a0 b1 c2 a0 b1 c2 1 2 3.4 2);

my %dup;
my $regex = join '|', map quotemeta, grep !$dup{$_}++, @a;

undef %dup;
print join "\n", grep !$dup{$_}++ && !/$regex/, @b;