$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;