my $j = 1+ $i;