my $qmarks = join q{,}, map { '?' } @delete_now;
    $dbh->do( "DELETE FROM t WHERE blah IN ($qmarks)",
              undef, @delete_now );