$i = 0;
foreach (@array) {
    # do stuff
    $i++;
}