while(my($key,$val) = each(%ret))
{
  my @parts = split(/\./, $key);
  my $id = '';
  foreach my $add (@parts)
  {
    $id .= $add;
    if($id eq $key)
    {
      next;
    }
    if(!$ret{$id}{'count'})
    {
      $ret{$id}{'count'} = 0;
      $ret{$id}{'head_count'} = 'head_count';
      $ret{$id}{'cat_count'} = 'cat_count';
      $ret{$id}{'subcat_count'} = 'subcat_count';
    }
    $ret{$id}{'count'} += $ret{$key}{'count'};
    $id .= '.';
  }

}