Select Code to Download

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

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