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