my $a = [];
my $b = { a => $a };
push @$a, $b;
print to_json($a);  # ???