Try using the Dump function of Data::Dumper like this:

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

this prints out:

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

writing to a file and do()ing it is left as an exercise

--

flounder