use warnings;
use strict;
use Data::Dump;

my @A;
for my $i (0..5) {
    $A[$i][0] = 1234;
}

dd @A;

__END__

([1234], [1234], [1234], [1234], [1234], [1234])