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