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