Hello tultalk,

You need to debug step by step your operations. Insert errstr on prepare and execute and see the output. I do not think so the way that you are using it currently is working correctly. Sample of code untested:

my $sth = $dbh->prepare($SQL) or die $dbh->errstr;
$sth->execute() or die $dbh->errstr;
$dbh->commit or die $dbh->errstr;
[download]

See also commit.

You need also to check your call fetchrow_array since you are jumping from one note to the other. Sample of code untested:

while (($tsid, $userid) = $sth->fetchrow_array) {
    print "$tsid: $userid\n";
}
# check for problems which may have terminated the fetch early
die $sth->errstr if $sth->err;
[download]

Hope this helps, BR.