Help for this page
open (FILE,">filename"); print FILE Data::Dumper->Dump([\%hashname],['*hashname']); close(FILE);
open (FILE1,"filename"); undef $/; eval <FILE1>; close(FILE1);