- or download this
if (exists $hash->{A}->{B2}->{C}) { ...
- or download this
for my $k (keys %{ $hash->{A}->{B2} } ){ ...
- or download this
$hash->{'A'}->{'B2'}->{*}
#is actually Equivalent to
my @subkeys = keys %{ $hash->{A}->{B2} };
#at least - I think this is where you were heading...