for my $j ($i..$i*3)