#!/usr/bin/env perl 
use strict;
use warnings;

my @a2 = qw/foo bar baz/;
my $match = join '|', @a2;
my @a1 = qw/bar quux/;
print grep {$_ !~ $match} @a1;