Help for this page
my $ia = 0 ; foreach my $a (@afoo) { ... $ia++ ; } ;
for my $ia (0..$#afoo) { my $a = $afoo[$ia] ; } ;
my $ia = -1 ; foreach my $a (@afoo) { ... ...... } ;