sub isNum {
    if ($var && $var !~ /\D/) {
        return 1;
    } else {
        return 0;
    }
}