print join " " => map {sprintf "%-${max}s" => $_}
                  splice @array => 0, $cols;