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";

sub peeker{
	print Dumper(peek_my(shift));
}
print Dumper(peek_my(0));

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

}
print Dumper(peek_my(0));
__END__
$VAR1 = {
          '$foo' => \undef,
          '@foo' => [],
          '$bar' => \undef,
          '@bar' => []
        };
$VAR1 = {
          '$foo' => \'lee',
          '$bar' => \'Bar'
        };
$VAR1 = {
          '$foo' => \'lee',
          '$bar' => \'Bar'
        };
$VAR1 = {
          '$foo' => \'lee',
          '$bar' => \'Bar'
        };