for (my $i = 0; $i < @array; $i++) {
    my $item  = $array[$i];
    do_something_with($item, $i);
}

##</code><code>##

my $i;
foreach (@array) {
    do_something_with($item, $i++);
}

##</code><code>##

for my $i (0..$#array) {
    do_something_with($array[$i], $i);
}