dump_matrix();

sub dump_matrix {
   for my $i (0..2) {
       print "row: $i [ ";
       for my $j (0..3) {
           print "$matrix[$i][$j], ";
       }
       print "]\n";
   }
}