foreach $word(@word) {
       $count{$word}++; 
    }