for( my $j=0; $j<2; $j++){  # C-style loop
for my $j (0..1){           # Perl-style loop, much clearer