$update=<<UPDATE;
update foo
set bar = ?
where id = ?
UPDATE

$dbstmt = $dbhandle->prepare($update);

foreach $recid (keys %records) {
  $dbstmt->execute($newvalues{$recid}, $recid);
}