my $bar = {};
my $foo = { bar => \$bar };
$bar->{foo} = \$foo;