my $splicer  = int(@list / $columns) + (@list % $columns > 0);