[% MACRO my_own_func BLOCK %]
...
[% END %]

##</code><code>##

[% PERL %]
$stash->set('my_own_func', sub {
   ... 
});
[% END %]