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 : {};
} 

##</code><code>##

sub selectrow_array { my $dbh = shift;
    my $query = shift;
    my @result;
    eval { @result = $dbh->selectrow_array($query) };
    return my_custom_error_handler("selectrow_array $query") if $@;
    return @result;
}