my $sth = $dbh->prepare ("INSERT INTO x (col1) VALUES(?)");
    foreach my $value (@list_of_evil_stuff)
    {
        $sth->execute($value);
    }

##</code><code>##

    $dbh->do("INSERT INTO x (col1) VALUES('$evil_value')");