my @cleaned = grep { not exists $exclude{$_} } @words;