Traverse within Array 2D

Source:
[src]
@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];
}
}
[/src]
Output:
[src]123456[/src]