my $z = sequence(5,5); $z(0:1,) .= $z(1:0,)->sever; print $z;