use Data::Dumper;
      printf "DEBUG:  Dump of DB_hash = (%s)\n", Dumper($DB_hash);
      while (($key, $value) = each %$DB_hash ) {