gistfile1.perl

use strict; use warnings;
use PadWalker;

print "1..1\n";

use Devel::Peek;
use overload;

my $f = sub {
    my $x = [];

    my $ret = sub {
        my $vals = PadWalker::peek_my(0);
        return overload::AddrRef($vals->{'$x'});
    };

    sub { warn $x; $ret->() };
};

use Data::Dumper;
warn Dumper($f->()->());