my $zz = $zeiger - 1;
for (; $zz > -1; $zz--)