my $buf = (0) x ( $x_dimension x $y_dimension);