while ($sth->fetch) { push @oids, $oid; } for (@oids) { my $price = $q->param("item_" . $_ . "_price"); $sth = $dbh->prepare(q{UPDATE items set price = ? WHERE oid = ?}); $sth->execute($price, $_); }