c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @A_0;
 my @A_1;
 my @A_2;
 my @A_3;
 ;;
 for my $arrayref ( \(@A_0, @A_1, @A_2, @A_3) ) {
   $arrayref->[0] = 1234;
   }
 dd \@A_0;
 dd \@A_1;
 dd \@A_2;
 dd \@A_3;
"
[1234]

[1234]

[1234]

[1234]