my $matrix = [([(0) x $cols]) x $rows];