my $lazy = do {
  my $result;
  sub {
    unless (defined $result) {
      ... do expensive computation ...
      ... assigning to $result ...
    }
    return $result;
  };
};
my %vars = {
  lazy => $lazy,
  easy => 2 + 2,
};
$template->process('mything.tt', \%vars);