my $mid = ( $left + $right ) / 2;
my @mids = zip{ ( $_[ 0 ] + $_[ 1 ] ) / 2 } @left, @right;