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));

##</code><code>##

Shallow
-------
$VAR1 = {
  'a' => {
    'b' => {
      'c' => 1
    }
  }
};
$VAR2 = {
  'a' => $VAR1->{'a'}
};


Deep
----
$VAR1 = {
  'a' => {
    'b' => {
      'c' => 1
    }
  }
};
$VAR2 = {
  'a' => {
    'b' => {
      'c' => 1
    }
  }
};