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";