Select Code to Download

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

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