Perl,如何确定变量值是否为数字？

use Scalar::Util qw(looks_like_number);

my $var1 = 123;
my $var2 = "456";
my $var3 = "abc";

if (looks_like_number($var1)) {
    print "变量\$var1是一个数字\n";
} else {
    print "变量\$var1不是一个数字\n";
}

if (looks_like_number($var2)) {
    print "变量\$var2是一个数字\n";
} else {
    print "变量\$var2不是一个数字\n";
}

if (looks_like_number($var3)) {
    print "变量\$var3是一个数字\n";
} else {
    print "变量\$var3不是一个数字\n";
}

变量$var1是一个数字
变量$var2是一个数字
变量$var3不是一个数字