foreach my $i (0 .. 100)