<>;$a[($_=++$i)-$#j]=$j[$_]=0for@p[glob<>];print$#a