while ( my $line1 = <$fh> )