perl 得出一个变量数值，怎么判断这个数值大于1或者小于1？并且给出不同答案。