my $JSON  = JSON->new->utf8;
    $JSON->convert_blessed(1);
    $JSON->allow_blessed(1);
    $JSON->pretty(1);
    my $json = $JSON->encode(\%arr_hash);
    print "JSON [\n $json\n ]\n";

##</code><code>##

 JSON [
 {
   "ace_context" : [
      null,
      null,
      null,
      null,
      null,
      null,
      null,
      null
   ],
   "server_nmap" : [
      null,
      null,
...
      null
   ]
}

##</code><code>##

    my $json = $JSON->encode(\@ace_context);

##</code><code>##

print Dumper(\%arr_hash);