#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump;
use Path::Tiny;
use JSON::Tiny qw(decode_json encode_json);
use feature qw(say);

my $ref = {
    a => [ 1, 2, 3 ],
    b => [
        { X => 1, Y => 2 },
        {
            X => [ 1, 2, 3 ],
            Y => [ 4, 5, 6 ],
            Z => [ 7, 8, 9 ]
        },
    ],
};

say q(-) x 4;

say ref $ref;

say q(-) x 4;

dd $ref;

my $json = encode_json($ref);

my $file = path(q(data.json));

$file->spew_utf8($json);

say q(-) x 4;

$ref = decode_json( $file->slurp_utf8 );

say ref $ref;

say q(-) x 4;

dd $ref;

__END__

karls-mac-mini:playground karl$ ./510202.pl
----
HASH
----
{
  a => [1, 2, 3],
  b => [
         { X => 1, Y => 2 },
         { X => [1, 2, 3], Y => [4, 5, 6], Z => [7, 8, 9] },
       ],
}
----
HASH
----
{
  a => [1, 2, 3],
  b => [
         { X => 1, Y => 2 },
         { X => [1, 2, 3], Y => [4, 5, 6], Z => [7, 8, 9] },
       ],
}
[download]