Select Code to Download

my %new_hash;
foreach my $line (%refdes_bom)
...
              ->{STRING} .= $states;
  }
}

'SB57002020P' => HASH(0x197d78c)
   'Q20' => HASH(0x195a120)
...
         0  88001
         1  88003
      'STRING' => 8800188003

my $count = 1;
my $new_count;
...
  $count++;
  }
}

00167 => HASH(0x19c39a8)
   'SB57002020P' => HASH(0x19c39c0)
...
      'STATES' => ARRAY(0x1989a10)
         0  88001
         1  88003