for my $k (keys %{ $hash->{A}->{B2} } ){ ...