my ($a,$reihe)=0,"";