Select Code to Download

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

 JSON [
 {
...
      null
   ]
}

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

print Dumper(\%arr_hash);