$image = pack "x" x ( ( $x_max + $space ) * $y_max );