my $matrix;
{
  my @row = (0) x $width;
  $matrix = [map {[@row]} 1..$height];
}