foreach $word (@words){
        if($word eq $word_list{$word}){
        $word_list{$word}= $word_list{$word} + 1; 
        }
        else{
        $word_list{$word} = 1;
        }
}