use strict;
use warnings;
use PadWalker qw(peek_my);
use Devel::DebugScope qw(dump_scope);

CHECK { print "CHECK\n";
        Devel::DebugScope::dump_scope();
        print "\n\n"; }
CHECK { peek_my(1)->{'%foo'}->{answer} = 42 };

print "Runtime outer\n";
Devel::DebugScope::dump_scope();
print "\n\n";

{
   my %foo;
   print $foo{answer}, "\n";
   print "Runtime inner\n";
   Devel::DebugScope::dump_scope();
   print "\n\n";
};
__DATA__
CHECK
scopestack_ix:      5
savestack_ix:       21

Runtime outer
scopestack_ix:      3
savestack_ix:       10

42
Runtime inner
scopestack_ix:      5
savestack_ix:       15