use Scalar::Util qw( looks_like_number );
...
        if (looks_like_number($_) && ($_ > 0)) {