for my $zz (0 .. $#PTage)