use Data::Dumper;

local $Data::Dumper::Terse = 1;

my $hashref = {
  aaa =>  1,
  bbb =>  2,
  ccc =>  3,
};

print "hashref : " . Dumper($hashref);

my $evalled = eval(Dumper($hashref));
print "evalled : " . Dumper($evalled);


__output__

hashref : {
          'ccc' => 3,
          'bbb' => 2,
          'aaa' => 1
        }
evalled : {
          'ccc' => 3,
          'bbb' => 2,
          'aaa' => 1
        }

##</code><code>##

use Data::Dumper;

local $Data::Dumper::Terse = 1;

my $x;
$x = \$x;

__output__

\$VAR1