PerlでScalaのdefみたいな挙動

Scalaで

def TEN = { print("hello"); 10 }
print(TEN)    // => "hello10

みたいなことができるというのをどこか(忘れたorz)で知ったんだけど
これPerlでもできるなと思ったので書いてみた。

sub TEN () { print "hello"; 10 }
print TEN    # => "hello10"

※この記事書いたと思ってたんだけど下書き保存したままだった。。。