foreach(@array)
{
  # $_ is an alias, in turn, for $array[ 0 ], $array[ 1 ], ... $array[
+ n ]
}
[download]

If you need a counter, try this:

foreach ( 0 .. $#array )
{
   # $_ 's value will be 0, 1, ..., (last index of @array)
}
[download]