#!/usr/bin/perl

use strict;
use warnings;
use Template;

my $template = Template->new();
my ($a, $b, $c, $d, $e) =
    qw( IF ELSE END WHILE ECHO);
    
my $params = {
    'a' => $a,
    'b' => $b,
    'c' => $c,
    'd' => $d,
    'e' => $e,
};
print $template->process(\*DATA, $params);

__DATA__
[% USE format('%s') %] 
[% FOREACH item = [ a b c d e] %] 
[% format(item) +%] 
[% END %]