my @C; OUTER: for ( @A ) { for my $pat ( @B ) { if ( /\Q$pat/i ) { next OUTER; } } push @C, $_; }