Select Code to Download

Word Frequency
Word Frequency
Word Frequency
Word Frequency

my %H;
while (<>) {
...
    $word = lc( $word ) ;
    $H{ $word } += $freq ;
}

$H{ $words[0] } += $words[1] ;