You have a logic error.

To get to line 435, the object of unless must be true, i.e. ($lock, $updon) != (). $lock is therefore redefined everywhere between the unless block and the DONE: label. It may well be undef, if the database column contains nulls.

Update, corrected some confusion of mine.

After Compline,
Zaxo