if (looks_like_number($$var)) {
    print "$$var is not a number\n";