# die zweitbeste Möglichkeit,
# leider nicht ganz sicher,
# man kann Statements bauen,
# die das Austricksen können.
my $q_table=quotemeta($table);

my $query_id="SELECT replace(newid(),'-','') FROM $q_table"
my $query_insert="INSERT INTO $q_table (Id, ProblemNumber, CreatedDateTime, CreatedBy) VALUES (?,?,?,?)";

# ID ermitteln
my $sth_id=$dbh->prepare($query_id);
$sth_id->execute();
my $id=$sth_id->fetchrow_arrayref()->[0];
$sth_id->finish();

# Daten hinzufügen
my $sth_insert=$dbh->prepare($query_insert);
$sth_insert->execute($id, $problemNumber, $createdDateTime, $createdBy);
$sth_insert->finish();

# Daten hinzufügen alternativ,
# wenn man das nur einmal braucht:
$dbh->do($query_insert, undef, $id, $problemNumber, $createdDateTime, $createdBy);