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

##</code><code>##

%hash2 = (
           'some' => 'really',
           'complicated' => [
                              'hash',
                              [
                                'structure'
                              ]
                            ]
         );