for my $i (0..$#Array) 
{
...
}