my @a; ...
my $na; my $Na;
$na = $#a;
$Na = ( 0, 1..$na );
@a = ...;
for my $i (@Na)...