@m = ( ( 31, (15) x ( $width - 1 ) ) x $height, (31) x $width );