sub inRange { #return true if test value in range undef otherwise
    my $toTest = shift;
    my $ref2limits = shift; #get copies of the params

    if (ref($ref2limits) ne "ARRAY") {
        die "second argument must be an array reference";
    }

    if (!defined $toTest or ref($toTest)) {
        die "first argument must be a scalar, 2 arguments required";
    }

    if ($toTest >= $ref2limits->[0] and $toTest <= $$ref2limits[1]) {
        return 1;	#true/in range
        #Just to prove that we can we use the alternate 
        # dereference methods
    }
    else {
        return undef;
    }
}

my @limits = (1,999);	#upper and lower limit
if (inRange(123,\@limits)) {
    print "In range\n";
}