@nine = (0,1,2,3,4,5,6,7,8);
foreach $row (@nine) {
	foreach $column (@nine) {
		print "$matrix[$row][$column]";
	}
	print "\n";
}