for(my $i=0;$i<=89;$i++) { ... }

##</code><code>##

foreach my $i (0..89) { ... }