my $j = 1;