while ( my $line1 = <$fh> )
{
    defined(my $line2 = <$fh>) or last;

    # etc
}