http://www.perlmonks.org?node_id=234065

print sub { sub { sub { sub { join ' ', @_ } -> (@_, 'Hacker') } -> (@_, 'Perl') } -> (@_, 'Another') } -> ('Just');