my $ia = 0 ;
  foreach my $a (@afoo) {

    ... acres of stuff ...

    $ia++ ;
  } ;

##</code><code>##

  for my $ia (0..$#afoo) {
    my $a = $afoo[$ia] ;


  } ;

##</code><code>##

  my $ia = -1 ;
  foreach my $a (@afoo) {
    $ia++ ;

    ......

  } ;