#!/usr/bin/env perl 
use strict;
use warnings;
use Template;

sub baz {
    return qw/there World/;
}

my $v = {
    bar => \&baz
};

my $t = join '', <DATA>;

Template->new->process (\$t, $v);

__DATA__
[% FOREACH foo IN bar() %]
Hello [% foo %]!
[% END %]