while (($value,$key) = each %hFields) {
      	if (defined($rHash->{$key})) {
      		$rHash->{$key}->{'count'}+= $value;
      	} else {
      	  $rHash->{$key}->{'count'} = $value;
      	}
      	
      	$total+= $value;
      }
   } 
   
   print "Total = $total\n", Dumper ($rHash);

##</code><code>##

Total = 146047
$VAR1 = {
  '1213_Device' => {
		     'count' => 1181
		   },
  'RTTMon_Common_Probe' => {
			     'count' => '2'
			   },
  'Cisco_Temperature_Sensor' => {
				  'count' => 24
				},
  'Cisco_Memory_Pool' => {
			   'count' => 2598
			 },
  'Cisco_Voltage_Sensor' => {
			      'count' => 496
			    },
  'Cisco_CBQoS_Class' => {
			   'count' => 6250
			 },
  'RTTMon_Jitter_Probe' => {
			     'count' => 175
			   },
  'Cisco_CPU_Unit' => {
			'count' => 116
		      },
  'Cisco_Power_Supply' => {
			    'count' => '1'
			  },
  'Cisco_CBQoS_Match' => {
			   'count' => 9068
			 },
  'Cisco_CBQoS_RED' => {
			 'count' => 3470
		       },
  'IETF_IF' => {
		 'count' => 119169
	       },
  'Cisco_Fan_Unit' => {
			'count' => 3497
		      }
};