my @a = (1..999);
for my $i (@a) {