use Data::Dumper::Names;

my $foo = 3;
my @bar = qw/this that/;
warn Dumper($foo, \@bar);
__END__
output:
    
$foo = 3;
@bar = (
        'this',
        'that'
);