open FH ... or die ..;
until( eof FH ) {
    my $line1 = <FH>;
    my $line2 = <FH>;
    my $foundEverything = processRecord( $line1, $line2 );
    last if $foundEverything;
}