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