perl Number-Compare