read $IN1, my $buffer, -s $IN1;
++$counts{$_} for split( /^/m, $buffer );