hirafoo.pl

#!/usr/bin/perl

use strict;
use warnings;
use JSON::Syck;
use Data::Dumper;

my $a = { hoge => 'fuga' };
my $b = { foo => $a, bar => $a };
warn Dumper $b;
warn JSON::Syck::Dump($b);

my $c = { a => { aa => 1 }, b => 2, c => 3 };
$c->{d} = $c->{a};
warn Dumper $c;
warn JSON::Syck::Dump($c);

1;