它是Perl，所以有很多特殊的技巧可以做到这一点。

print [$object->method()]->[0]

换另一个。

有一个特殊的技巧来做到这一点：

print +($object->method())[0]

从perldoc perlfunc开始：
下表中的任何函数都可以在其参数周围使用或不使用括号。（语法描述省略了括号。）如果使用括号，则会出现一个简单但偶尔令人惊讶的规则：它看起来像一个函数，因此它是一个函数，优先级无关紧要;否则它是一个列表运算符或一元运算符，优先级就有关系;函数和左括号之间的空格不算在内，所以有时候你需要小心：

print 1+2+4;      # Prints 7.
    print(1+2) + 4;   # Prints 3.
    print (1+2)+4;    # Also prints 3!
    print +(1+2)+4;   # Prints 7.
    print ((1+2)+4);  # Prints 7.

来自#perl@libera IRC：