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