my $plch = join ', ', ('?') x @values; my $sql = <prepare_cached($sql) || die; $sth->execute(@values) || die; while ($sth->fetch) { # Do stuff } $sth->finish || die;