my $ucfirst = sub { ucfirst($_[0]) };
$template->process($template_name, { %vars, ucfirst => \&ucfirst });

##</code><code>##

[% ucfirst(foo) %]