use Storable;
...
store \%hash1, $filename;