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

##</code><code>##

 foreach $row(@nine) {
	foreach $column(@nine) {
		s/\d//;
		push(@matrix[$row][$column], $&);
		}
}