@m=([[1,2,3],[2,3,4]],[[1,5],[2,6]]);
for $i(0..$#m)
{
for $j(0..$#{$m[$i]})
{
for $k(0..$#{$m[$i][$j]})
{
print $m[$i][$j][$k]," ";
}
}
}

my @a=(1,2,3);
my @b=(4,5,6);
my @c=(7,8,9);
foreach my $num(@a,@b,@c){
print "$num";
}

my @a=(1,2,3);
my @b=(4,5,6);
my @c=(7,8,9);
print "@a \n@b \n@c";