#Sample 1.
$n=0;
foreach $i( @array ) {
 #do something with $i
 #do something with $n
 $n++;
}
#Sample 2.
foreach $i( 0..$#array ){
 #do something with $array[$i]
 #do something with $i
}