use Data::Dumper::Names;
my $foo = "Bar";
print Dumper($foo);
__END__
$foo = 'Bar';