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) {
	print join(",", @{$a1[$r]}, @{$a2[$r]}), "\n";
}

__END__

a,b,c,j,k,l
d,e,f,m,n,o,p
g,h,i,q,r