#!/usr/bin/perl

use warnings;
use strict;

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

}

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


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

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

print Dumper(peek_my(0))
__END___
$VAR1 = {};
$VAR1 = {
          '$foo
          '$bar
        };