Select Code to Download

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

Total = 146047
$VAR1 = {
...
              }
};