my $z = sequence(10); $z->where($z <= 8 & $z>= 3) *= -1; print $z;