use v5.12.0;
use warnings;
use PadWalker qw/peek_my peek_our/;

my  $a1 = {};
our $a2 = {};

for my $space ( peek_my(0),peek_our(0) ){
    for my $item (keys %{$space}) {
        say $item if (ref ${$space->{$item}} eq "HASH");
    }
}