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