# perl -MData::Dump=dump -e '$h = {lol=>2}; $h->{lol2} = $h; print dump($h), "\n"'
do {
  my $a = { lol => 2, lol2 => 'fix' };
  $a->{lol2} = $a;
  $a;
}