for( my $p = 0; ...)