my $i = 0;
for(0 .. $Pages-1)
{
    # some code
    ++$i;
}