>>281 ↓実験してみ。

sub sum { $_[0] + $_[1] }
use constant THREE => 3;

print <<_EOF_;
${[sum(THREE,4)]}[0]
_EOF_