use Data::Dumper;

my @array=('water','wine','applepie','beer','orange juice',"apple\n");
my @dels=('apple','orange');
my $dels = join '|',
           map quotemeta,
           @dels;
@array = grep !/^($dels)$/, @array;

print Dumper \@array;
__END__
$VAR1 = [ 
          'water',
          'wine',
          'applepie',
          'beer',
          'orange juice'
        ];