open (FILE,">filename");
print FILE Data::Dumper->Dump([\%hashname],['*hashname']);
close(FILE);

##</code><code>##

open (FILE1,"filename");
undef $/;
eval <FILE1>;
close(FILE1);