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