in reply to %:: equivalent for my() variables?
Use PadWalker.
perl -MData::Dumper -MPadWalker=peek_my -e'my $x = 1; my @y = 1..3; my + %z => (foo=>42); print Dumper(peek_my(0));' [download]