sub split_array_in_two{ \@_, [splice @_, 1+$#_/2] }