% perl -MData::Dumper -e '
  my %h = (one => 1);
  $h{refone} = \$h{one};
  # make it a self-referential structure
  my $d = Data::Dumper->new([\%h], [*value]);
  $d->Indent(1);
  $d->Terse(1);
  $d->Sortkeys(1);
  print $d->Dump;
'
(
  'one' => 1,
  'refone' => \$main::value{'one'}
)