my $index=0;
for ($index=0;$index<=$x;$index++) { }

##</code><code>##

for my $index(0..$x) { }