my $sta = 'UPDATE foo SET bar=? WHERE '; $sta .= (join ' OR ', ('baz=?') x @values); my $sth = $dbh->prepare($sta); $sth->execute(7, @values);