my %exclude;
@exclude{ @exclude } = ();

my @cleaned = grep { exists $exclude{ $_ } ? () : $_ } @words;