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