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


  } ;