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