sub get_html { my @array = qw/ happy sad worried /; my $html = <