如何在perl中检查匿名数组是否为空

因此，为了理解perl的匿名数组，我正在使用下面的脚本。我试图检查它是否为空，但是if检查通过了，而不是else检查，我希望这样做。提前谢谢

use warnings;
use strict;
use Data::Dumper;


my $result = [];

print STDOUT Dumper $result;

if ($result)
{
    print STDOUT "It has stuff in it\n";
}
else
{
    print STDOUT "It is empty!\n";
}

使用解引用：

if (@$result) {
    print "Has stuff\n";
} else {
    print "Empty\n";
}

使用解引用：

if (@$result) {
    print "Has stuff\n";
} else {
    print "Empty\n";
}

使用解引用：

if (@$result) {
    print "Has stuff\n";
} else {
    print "Empty\n";
}

使用解引用：

if (@$result) {
    print "Has stuff\n";
} else {
    print "Empty\n";
}