RECORD: while( <INPUT_FEED> ) {
    ....
    foreach my $invalid (keys %invalid ) {
        ...
        while( @tmp ) {
            next RECORD if ...;
        }
    }