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