sub inRange{    # return 1/true if arguments in range,
                #         undef if not
    my ($toTest,$lower,$upper) = @_; #copy arguments from the 
        # array in which they were passed
    #...
    #..
}