die("keine Feldliste") if @anzahl <= 0;

my $insertvalue = "insert into daten (" 
        . join(",", @anzahl) . ") values ("
        . join(",", ("?") x @anzahl)  . ")";

my $sth = $dbh->prepare($insertvalue);
$sth->execute(...);