$uniq = rand(1);
        $uniq =~ s/\./PT/g;
        my $statement2 = "UPDATE $table SET uniq='$uniq' WHERE name='$hash_ref->{name}'";
        unless( print $dbh->do( $statement2 ) ){ die main::writeDbhError("Fehler beim Setzen von uniq: $statement2"); }