#!/usr/bin/env perl

use strict;
use warnings;

use Template;

my $input = <<'EOT';
    <p>ed=[% ed %] ad=[% ad %]</p>
    <table>
        <tr><th>First</th><th>Last</th></tr>
        [% FOREACH voter IN voters %]
        <tr>
            <td>[% voter.firstname %]</td>
            <td>[% voter.lastname %]</td>
        </tr>
        [% END %]
    </table>
EOT

my $vars = {
    ed => 'ED',
    ad => 'AD',
    voters => [
        {
            firstname => 'F1',
            lastname => 'L1',
        },
        {
            firstname => 'F2',
            lastname => 'L2',
        },
    ],
};

my $vars2 = {
    ed => 'ED',
    ad => 'AD',
    voters => [
        {
            firstname => { name => 'F1' },
            lastname => { name => 'L1' },
        },
        {
            firstname => { name => 'F2' },
            lastname => { name => 'L2' },
        },
    ],
};

my $t = Template::->new;

$t->process(\$input, $vars);
$t->process(\$input, $vars2);

##</code><code>##

    <p>ed=ED ad=AD</p>
    <table>
        <tr><th>First</th><th>Last</th></tr>
        
        <tr>
            <td>F1</td>
            <td>L1</td>
        </tr>
        
        <tr>
            <td>F2</td>
            <td>L2</td>
        </tr>
        
    </table>
    <p>ed=ED ad=AD</p>
    <table>
        <tr><th>First</th><th>Last</th></tr>
        
        <tr>
            <td>HASH(0x7f8f68805630)</td>
            <td>HASH(0x7f8f688448b0)</td>
        </tr>
        
        <tr>
            <td>HASH(0x7f8f68844688)</td>
            <td>HASH(0x7f8f688446d0)</td>
        </tr>
        
    </table>