sub Mix2 {
my (@r,@n);
my $i=-1;
while($i++>-2){
        @n=map{$_->[$i]}@_;
        @r=(@r,@n);
        last unless (join'',@n)
}
@r;
}