sub split_array_in_two { my $l=@_/2; [@_[0..$l-1]], [@_[$l..$#_]] }