Pseudo-hashes are deprecated at ./x line 86.
Pseudo-hashes are deprecated at ./x line 86.
Argument "/opt/bin2" isn't numeric in each at ./x line 86.
Bad index while coercing array into hash at ./x line 86.

##</code><code>##

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

##</code><code>##

        xxrctest S T A R T S
DEBUG:  Dump of DB_hash = ($VAR1 = [
          {
            'ADMIN_DIR' => '/opt/bin2'
          }
        ];

##</code><code>##

      my $actual_hash = $DB_hash->[0];
      while (($key, $value) = each %$actual_hash ) {