straight from the DBI doc

$sth = $dbh->prepare("insert into table(foo,bar,baz) values (?,?,?)");
while(<CSV>) {
  chop;
  my ($foo, $bar, $baz) = split(/,/);
  $sth->execute($foo, $bar, $baz);
}
$dbh->commit || die $dbh->errstr;
[download]

"The do() method can be used for non repeated non-select statements (or with drivers that don't support placeholders)"