use PadWalker qw(peek_my);
use Data::Dumper;

my $s = "a string";
{
    my @a = qw(an array);
    print Dumper( peek_my(0) );
}
my %h = qw(a hash);

print Dumper( peek_my(0) );

__output__

$VAR1 = {
          '@a' => [
                    'an',
                    'array'
                  ],
          '$s' => \'a string'
        };
$VAR1 = {
          '%h' => {
                    'a' => 'hash'
                  },
          '$s' => \'a string'
        };