in reply to Re: split an array in two
in thread split an array in two

Note that your solution divides the data differently than the OP's code. Use 1+$#x/2 instead of @x/2 to get the OP's result.

You can also write it 

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

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom