vec EXPR,OFFSET,BITS
        Treats the string in EXPR as a bit vector made up of elements of
        width BITS, and returns the value of the element specified by
        OFFSET as an unsigned integer.
##</code><code>##

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

##</code><code>##

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

##</code><code>##

for ( $j = 0; $j <= 5; $j++ )
{
    my $scratch = "domains$j";
    for ( $i = -100 ; $i <= 2000 ; $i++ ) {
    if (vec($$scratch,$i,1)){
        print "\t $i recognised as part of the 1st domain using the new method\n";
        }
    }
}