#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Storable qw(store retrieve);

my $path = "/tmp/file";

my %hash = (name => "Mika",
            age  => 30); # <-- fest-codierte Werte!

my $hash = ( -r $path)? retrieve($path) : \%hash;


# Beweist nur etwas wenn man im 2. Durchlauf
# die fest-codierten Werte ändert!
print Dumper($hash);

store ($hash, $path);