for my $j (1..1000) {