my @arr = qw ( apples oranges bananas pears berries apricots   );
my @arr_of_columns = split_list( \@arr, 2 );