$ perl -MData::Dumper -e'my $x = {}; $x->{x} = \$x; print Dumper $x'
$VAR1 = {
          'x' => \$VAR1
        };