sub isitin 
{
    my ($hit,$what) = @_;
    my $within = 0;
    my $k;
    for ($k=0; $k<@nreg; $k++)
    {
        if ($what >= $nreg[$k][0] and $what <= $nreg[$k][1])
        {
            $within = 1;
        }
    }
    return $within;
}