Traverse within Array 2D

[asylu3]

Source:

@a=(1,2,3);
@b=(4,5,6);
$a_1=@a;
$a_0=@b;
@new=($a_1,$a_0);
$r=@new;

for($i=0;$i<2;$i++)
{
for($j=0;$j<3;$j++)
{
print $r->[$i][$j];
}
}

Output:
123456