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