my $sth = $dbh->prepare("INSERT ... VALUES (?, ...)") or die $dbh->errstr;
for my $line (@lines) {
  my @values = splitte_die_zeile($line);
  $sth->execute(@values) or die $dbh->errstr;
}

LOAD DATA LOCAL INFILE '/home/httpd/vhosts/myDomain.de/httpdocs/test/0185a.dat' INTO TABLE test FIELDS TERMINATED BY ';' OPTIONALLY ENCLOSED BY '"'

LOAD DATA LOCAL INFILE '../datafiles/payments.txt' INTO TABLE Payments
          FIELDS TERMINATED BY ',' ENCLOSED BY '"' LINES TERMINATED BY '\r\n';