use warnings;
use strict;

INIT {
   use Data::Dumper;
   use PadWalker qw (peek_my peek_sub);    
   print Dumper(peek_my(1));
}

my $foo = 'lee';
my $bar = "Bar";

print Dumper(peek_my(0));

{ my @foo = (1..3) };
{ my @bar = (9..12) };

print Dumper(peek_my(0));

##</code><code>##

$VAR1 = {
          '$foo' => \undef,
          '@bar' => [],
          '@foo' => [],
          '$bar' => \undef
        };
$VAR1 = {
          '$foo' => \'lee',
          '$bar' => \'Bar'
        };
$VAR1 = {
          '$foo' => \'lee',
          '$bar' => \'Bar'
        };