my $line = <$fh>;