Word Frequency
Word Frequency
Word Frequency
Word Frequency

##</code><code>##

my %H;
while (<>) {
    my ( $word, $freq ) = split /\s+/, $_;
    $word = lc( $word ) ;
    $H{ $word } += $freq ;
}

##</code><code>##

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