my $sql = 'INSERT INTO btergebnis ('
  . join(',', @spalten)
  . ') VALUES (' 
  . join(',', ('?') x @werte)
  . ') ';
say "Generated SQL: \n$sql\n";

$dbh->do($sql, undef, @werte);