my %hash = (...);
$Data::Dumper::Varname = 'hash';
print Dumper(\%hash);