my $j=...