chomp($zeile);
my @werte=split("\t",$zeile);