use strict;
use warnings;

use Data::Dumper;
use Tie::IxHash;

{
    tie (my %x, 'Tie::IxHash');

    %x = (
        'A' =>  1,
        'B' =>  2,
        'C' =>  3,
    );

    print join "", map { "$_ = $x{$_}\n" } keys %x;
    print "\n";

    my $dumped;
    {
        local $Data::Dumper::Terse = 1;
        $dumped = Dumper(\%x);
    }
    print "Dumper: $dumped\n\n";

    my $y = eval $dumped;
    print join "", map { "$_ = $y->{$_}\n" } keys %$y;
}