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

##</code><code>##

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

##</code><code>##

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