The Condition that Ate Michigan

Here's the current version of the main loop:

      while (<INFILE>) {
        chomp;
        last if /^SCAN_CELLS/;
        $seen_CHAIN_TEST=1  if /CHAIN_TEST/;

        if (/apply/ && $seen_CHAIN_TEST) {
          $ct_scanout = 1 if /apply\s*"grp[0-9]_unload"/;

          next unless /\t*chain\s+"chain([0-9])"/;
          $chain_number = $1;
          &cleanup;
          $chain_input = (split /=/,$_)[1];
          $chain_input =~ tr/\"//d;
          $chain[$chain_number] = [split //, $chain_input];
          &printout if $chain_number == 7;          
        }
      }

The if /apply/ condition has eaten up most of the code
This is a mild example of The Condition That Ate Michigan
Here it is only snacking on Delaware