sub split_array_in_two {return unless @_;[splice(@_,0,(int scalar(@_)/2))],\@_}