perl-number-compare