my $count = 1;
my $new_count;
my $row;
my %bundled_hash;
foreach my $CPN (%new_hash)
{
  foreach my $REFDES (sort keys %{$new_hash{$CPN}})
  {
    $new_count = length $count;
    $row = $count;
    my $i;
    for ($i = $new_count; $i <= 4; ++$i) # Start with $i = 1
    {
      $row = '0'.$row;
    }
    if (not defined $new_hash{$CPN}->{$REFDES}->{MATCH})
    {
      push (@{$bundled_hash{$row}->{$CPN}->{REFDES}},$REFDES);      
      $bundled_hash{$row}->{$CPN}->{SIDE} = $new_hash{$CPN}->{$REFDES}->{SIDE};
      $bundled_hash{$row}->{$CPN}->{DESC} = $new_hash{$CPN}->{$REFDES}->{DESC};
      $bundled_hash{$row}->{$CPN}->{STATES} = $new_hash{$CPN}->{$REFDES}->{STATES};
      foreach my $REFDES1 (sort keys %{$new_hash{$CPN}})
      {
        if ($new_hash{$CPN}->{$REFDES}->{STRING} eq $new_hash{$CPN}->{$REFDES1}->{STRING} && $new_hash{$CPN}->{$REFDES}->{SIDE} eq $new_hash{$CPN}->{$REFDES1}->{SIDE} && $REFDES ne $REFDES1)
        {
          #$bundled_hash{$row}->{$CPN}->{REFDES} = $REFDES;               
          push (@{$bundled_hash{$row}->{$CPN}->{REFDES}},$REFDES1);      
          $new_hash{$CPN}->{$REFDES1}->{MATCH}=1;
        }
      }
    }
  $count++;
  }
}