use Storable     qw( dclone );
use Data::Dumper qw( Dumper );

my %hash = (a=>{b=>{c=>1}});

my %shallow = %hash;
my %deep    = %{ dclone(\%hash) };

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

print("Shallow\n");
print("-------\n");
print(Dumper(\%hash, \%shallow));

print("\n\n");

print("Deep\n");
print("----\n");
print(Dumper(\%hash, \%deep));