foreach $word ( @words ) {
        $word_list{$word}++;
    }