# wrong
while (my $line = $fh){

# right
while (my $line = <$fh >){