perl中没有bool类型，所有的判断都是通过数字类型和字符串类型来进行的。

哪些类型为false

标量只有三种，数字0，空字符串"", 字符串'0'（"0"）。

矢量有空数组，空哈希。

判断数组或哈希为空

和标量一样，直接将数组或哈希放到if语句中即可

my @list = () ;
if(@list){
print "Not empty!\n" ;
}

my %hash = () ;
if(%hash){
print "Not empty!\n" ;
}