for my $n (0..$#a) {
   ...
}