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