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

    ......

  } ;