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

##</code><code>##

    for $w (0 .. $#word) {
       $count{$word[$w].' '.$word[$w+1] }++;
    }