push @{$Line{$word}}, $count
   unless exists $Line{$word} && $Line{$word}[-1] == $count;