#!/usr/bin/perl -w

use strict;
use Data::Dumper;

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

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

    my $dumped = Dumper($hashref);
    print "Dumped: $dumped\n";

    my $restored = eval $dumped;
    print "restored: " . Dumper($restored);

    my $test_2 = eval(Dumper($hashref));

    print "test_2: " . Dumper($test_2);
}