my $i, $j;