[17:19:18] ~/test$ perl dbm1.pl 
Aktuell drin:
$VAR1 = {};
Fuege Wert hinzu.
[17:19:21] ~/test$ perl dbm1.pl 
Aktuell drin:
$VAR1 = {
          '0.0638814420412643' => '0.945874316458688'
        };
Fuege Wert hinzu.
[17:19:22] ~/test$ perl dbm1.pl 
Aktuell drin:
$VAR1 = {
          '0.499142777963669' => '0.14024860186419',
          '0.0638814420412643' => '0.945874316458688'
        };
Fuege Wert hinzu.
[17:19:23] ~/test$ perl dbm1.pl clean
Aktuell drin:
$VAR1 = {
          '0.499142777963669' => '0.14024860186419',
          '0.0638814420412643' => '0.945874316458688',
          '0.516201025431172' => '0.596852673524157'
        };
Leere Hash.
[17:19:25] ~/test$ perl dbm1.pl      
Aktuell drin:
$VAR1 = {};
Fuege Wert hinzu.
[17:19:28] ~/test$ perl dbm1.pl 
Aktuell drin:
$VAR1 = {
          '0.217905852102803' => '0.371467244652198'
        };
Fuege Wert hinzu.