Select Code to Download

print Dumper(%hash);

print Dumper(\%hash);

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

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