if (%hash)

会工作很好。

从perldoc perldata：

If you evaluate a hash in scalar context,it returns false if the hash is empty. If there are any key/value pairs,it returns true; more precisely,the value returned is a string consisting of the number of used buckets and the number of allocated buckets,separated by a slash.