my @a1 = (
	['a','b','c'],
	['d','e','f'],
	['g','h','i'] );
my @a2 = (
	['j','k','l'],
	['m','n','o','p'],
	['q','r'] );
for my $r (0..$#a1) {
	for my $c (0..1) {
		print "[$r][$c] a1=$a1[$r][$c] a2=$a2[$r][$c]\n";
	}
}

__END__

[0][0] a1=a a2=j
[0][1] a1=b a2=k
[1][0] a1=d a2=m
[1][1] a1=e a2=n
[2][0] a1=g a2=q
[2][1] a1=h a2=r