c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"our @A_0;
 our @A_1;
 our @A_2;
 our @A_3;
 ;;
 for my $i (0 .. 3) {
   my $name = qq{A_$i};
   no strict 'refs';
   $name->[$i] = 1000 + $i;
   }
 dd \@A_0;
 dd \@A_1;
 dd \@A_2;
 dd \@A_3;
"
[1000]

[undef, 1001]

[undef, undef, 1002]

[undef, undef, undef, 1003]