Select Code to Download

sub Mix {
map{my$i=$_;map$i<@$_?$$_[$i]:(),@_}0..map@$_,@_
}

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

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

sub Mix {
map{map{splice@$_,0,1}(@_)x@$_}@_
}