<perl>
get "Id==*", "db1";
out "Es sind $_amount_all Datensätze vorhanden<br>";
while(get_next(db1)){
$cnt++;
$ident = $Id; # $ident = $_id auch schon probiert

$altwert1 = $Abholzeit; $altwert2 = $Anlieferzeit;

$neuwert1 = substr $altwert1, 11, 5; $neuwert2 = substr $altwert2, 11, 5;

$Abholzeit = $neuwert1; $Anlieferzeit = $neuwert2;
#--------------------------------------------#
    get "*", "db1.fields", "felder";
    $_put{_amount} = 1;
    while(get_next(felder)){
       if ($Field ne "Id"){
       $_put{$Field} = ${$Field};
       out $_put{$Field};
       }
    }
    $_put{_amount} = 1;
    while( ($key,$wert) = each %_put){
    out "Feld: $key - Wert: $wert<br>";
    }

    out "Werte aus Hash: $_put{Abholzeit} - $_put{Anlieferzeit}<br>";
    out "----- Datensatz Nr. $cnt mit ID $Id --- <br>";
#--------------------------------------------#
# alle folgenden Varianten des Mod laufen sich tot.....
# mod "Id==!$ident",undef, "db1";
# mod "Id==!$ident", ["Abholdatum",$Abholdatum,"Anlieferdatum",$Anlieferdatum],"db1";
#--------------------------------------------#
put undef, "db1_kopie";
}
out "Insgesamt $cnt Datensätze von $_amount_all geändert";
</perl>