函数可以使用wantarray来确定它们所处的上下文并相应地返回一些内容:
sub get_array { my @a = ("one", "two"); return wantarray ? @a : $a[-1]; }