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