# wrong line
 foreach (@words) { my $some_words{$_} = "1"; }

##</code><code>##

 foreach (@words) { $some_words{$_} = "1"; }