my %to_remove = map { $_ => 1 } qw( fee fie for );

my @filtered = grep { !$to_remove{$_} } @unfiltered;