in reply to split an array in two
sub split_array_in_two {return unless @_;[splice(@_,0,(int scalar(@_)/ +2))],\@_} [download]