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