# index loop
for my $f (0 .. $#array)
{ my $g = $array[$f];
  ...
}

# element loop
for my $g (@array)
{ ...
}