Select Code to Download

use Data::Dumper qw(Dumper);
print Dumper $cc::zz{key1}{subkey1};

use Data::Dumper qw(Dumper);
my $key1 = $cc::zz{key1};
print Dumper $key1->{subkey1};