my $sth = $dbh->prepare("INSERT INTO tbl_bsp SET bsp_artID=?, bsp_text=?")
    or die "Konnte Statement nicht erstellen : $DBI::errstr";
$sth->execute($sorte, $animal)
    or die "Konnte Statement nicht ausführen $DBI::errstr";
$sth->finish;