for (my$j=0;$j<$n;$j=$j+1)

##</code><code>##

for my $j (0 .. $n - 1)