print Dumper(%hash);

##</code><code>##

print Dumper(\%hash);

##</code><code>##

$dump= Data::Dumper->Dump([[\%hash,\@array,$scalar]],[qw(*vars)]);
my @vars=eval $dump;

##</code><code>##

$Data::Dumper::Purity=1;
print Data::Dumper->new([\%foo],['*foo'])->Purity(1)->Dump;