for (my $kk = $nn; $kk > 0; --$kk) { ... }