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";
        }
    }
}