my $upd_code_with_history = sub {
    my $record = $resultset->find(\%key);
    # save unchanged Data for new row
    my %data   = $record->get_columns;

    # modify the existing row
    $record->set_column( 'active_marker', 0);
    $record->update;

    # now update the saved row data which the changes
    foreach my $key(keys %values) {
        $data{$key} = $values{$key};
    }
    $data{'timestamp_col'} = \['CURRENT TIMESTAMP']; # DB2
    my $new_row = $resultset->create (\%data );      # insert
}; # ende Coderef $upd_code_with_history