my ($freq, $word) = split;



$freq_hash{$word} += $freq;