c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @arrayrefs = ( \my (@A_0, @foo, @A_2, @A_3) );
 ;;
 for my $i (0 .. $#arrayrefs) {
   $arrayrefs[$i][$i] = 1000 + $i;
   }
 dd \@A_0;
 dd \@foo;
 dd \@A_2;
 dd \@A_3;
"
[1000]

[undef, 1001]

[undef, undef, 1002]

[undef, undef, undef, 1003]