my %whitelist;
@whitelist{@good_words} = (1) x @good_words;

##</code><code>##

my %whitelist = map { $_ => 1 } @good_words;