/ do { my $a = {}; $a->{'a'} = $a; $a; }, a  a