Select Code to Download

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

    $ia++ ;
  } ;

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


  } ;

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

  } ;