while(my($key,$val) = each(%ret)) {
    $id = $key;
    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';
    }
## Though this doesn't do much?
    $ret{$id}{'count'} += $ret{$key}{'count'};
}