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