sub Mix { map{splice@$_,0,1}map@_,map@$_,@_=map[@$_],@_ }