Select Code to Download

#!/usr/bin/perl

...

print "\nDump of \%hash (2):\n";
print Dumper \%hash;

Dump of %dtoHash (1):
$VAR1 = {
...
                      'key1' => {}
                    }
        };