use Data::Dumper;
my %hash2 = (
	some => "really",
	complicated => ["hash", ["structure"]]
);
print Data::Dumper->Dump([\%hash2], ['*hash2']);