for( my $i= 0; $i < @array; $i++ )