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