#!/usr/bin/perl

use strict;
use warnings;

my %hash;
dbmopen( %hash, 'test', 0644 );

if ( !keys %hash ) {
    print "no keys in database, read the file\n";
    # simuliere das einlesen der Datei
    $hash{key1} = 'value1';
}

while ( my ($key,$value) = each %hash ) {
    print sprintf "%s - %s\n", $key, $value;
}

$hash{$$} = time;

dbmclose( %hash );