Select Code to Download

use Storable     qw( dclone );
use Data::Dumper qw( Dumper );
...
print("Deep\n");
print("----\n");
print(Dumper(\%hash, \%deep));

Shallow
-------
...
    }
  }
};