@matrix = (
           [1, 2, 3],
           [4, 5, 6],
           [7, 8, 9]
          );


foreach $i (@matrix)
  {
	foreach $j (@$i)
	  {
		print "$j, ";
	  }
	print "\n";
	}