for (my $j == 1; $j <=4; $j++) {...}

##</code><code>##

for (my $j = 2; $j < 5; $j++) { ... }