use PadWalker qw( peek_my );

sub foo {
  my $ebil = peek_my( 1 );
  print $ebil->{'%hash'}->{foo}, "\n";
}

{
   my %hash;
   local $hash{foo} = 123;
   foo();
}