my $list = join "\n", map "

", @existing_array; ##

##

#! /usr/bin/perl
use warnings;
use strict;

use Template;

my @array = ('Item 1', 'Item 2');

my $t = Template->new;
my $list = << '__TT__';

    
        [% FOR item IN list %]
            [% item %][% END %]
        
    

__TT__

$t->process(\$list,
            { list => \@array },
            \*STDOUT);