foreach (0..@array)
{ 
   $array[$_] = 3;
   # do your stuff, $_ being the counter
}