# Add 1 to the result of the division below
# if list is not evenly divisible by $columns.
my $splicer  = int(scalar(@list) / $columns);
   $splicer += scalar(@list) % $columns > 0 ? 1 : 0;