#!/usr/bin/perl use strict; use warnings; use diagnostics; 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'; return " "; }