use strict;
use warnings;
use Storable qw(freeze thaw);
use Data::Dumper;

my %orig = ( 1 => 2, a => 'b');
my $frozen = freeze(\%orig);
print "Frozen: $frozen\n";

my $restored = thaw($frozen);
print "Thawed: ", Dumper $restored;