my $sth = $dbh->prepare("INSERT INTO whatever VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)")

while (<INFILE>)   {
      my @line = (parse_csv ($_)); 
      $sth->execute(@line);
}