for (@{$domains[$i]}) { vec($scratch,$_,1) = 1}