This prints three values:

    my $xbinds = join ", ", @binds;
    print "update [$udate]\n";
    print "binds -->  {$xbinds }\n";
[download]

But here you pass the three plus one more value, the $id to ->execute:

$sth->execute(@binds, $id);
[download]

So, DBI is right, you are passing four values where it only expects three.