#!/usr/bin/perl use strict; use warnings; use diagnostics; use Template::Tiny; my $app = sub { my $html = get_html(); return [ 200, ['Content-Type' => 'text/html'], [$html] ]; }; sub get_html{ my @array; $array[0] = 'happy'; $array[1] = 'sad'; $array[2] = 'worrried'; my $template = do { local $/; }; my $tt = Template::Tiny->new(); my $html; $tt->process(\$template, { my_array => \@array }, \$html); return $html; } __DATA__