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

    # etc
}