use Data::Dumper;
$Data::Dumper::Indent = 0; # no spaces tabs or other fluff
$Data::Dumper::Purity = 1; # include code to recreate recursive references

sub store_hash {
    my $hash_ref = shift;
    my $saved = Dumper($hash_ref);
    # store $saved somewhere
}

sub get_hash {
    # get $saved from somewhere
    my $VAR1;
    eval {$saved}
    return $VAR1 ? $VAR1 : {};
}