1 2
my $zz = $zeiger - 1; for ($zz; $zz > -1; $zz--)
my $zz = $zeiger - 1; for (; $zz > -1; $zz--)
for(my $zz = $zeiger - 1; $zz > -1; $zz--)
for my $zz (reverse( 0 .. $zeiger - 1))