if ($var && $var !~ /\D/) {
    # We have a value and it's a number
}

##</code><code>##

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