use Data::Dumper;
    open FH, ">$file" or die "Can't open $file: $!";
    print FH Dumper \%hash;
    close FH or die "Can't close $file: $!";

    ### Later...
    my $hashref = do $file;