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