perl Number-Compare Number::Compare