>>97
for(my $i = 0; $i < @array; $i++){
# ...
}