in reply to speedy update routine

You could try using a stored procedure.

In Section Seekers of Perl Wisdom