如何确定Perl中变量的值是标量还是数组？

my $var = 10;
my @arr = (1, 2, 3);

print ref($var);  # 输出：undef
print ref(@arr);  # 输出：ARRAY

my $var = 10;
my @arr = (1, 2, 3);

print scalar($var);  # 输出：10
print scalar(@arr);  # 输出：3

my $var = 10;
my @arr = (1, 2, 3);

if ($var =~ /^@/) {
    print "变量是数组\n";
} else {
    print "变量是标量\n";
}

if (@arr =~ /^@/) {
    print "变量是数组\n";
} else {
    print "变量是标量\n";
}