Select Code to Download

% perl -MData::Dumper -e '
  my %h = (one => 1);
  $h{refone} = \$h{one};
...
  'one' => 1,
  'refone' => \$main::value{'one'}
)

{
  'one' => 1,
  'refone' => \$VAR1->{'one'}
}