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