my $j = 0;
my @a = map {++$j} (1..999);
for my $i (@a) {