http://www.perlmonks.org?node_id=948670


in reply to trouble with substitution

perl -e 'my %hash=(q|a|=>100,q|b|=>300); use Data::Dumper; my $obj = D
+ata::Dumper->new([\%hash],[qw|foo|]); print $obj->Dump();'
$foo = {
         'a' => 100,
         'b' => 300

[download]

Maybe stop putting $VAR in the output in the first place?

Celebrate Intellectual Diversity

In Section Seekers of Perl Wisdom