while ( defined(my $line1 = <$fh>) )