Select Code to Download

my $list = join "\n", map "<li>$_</li>", @existing_array;

#! /usr/bin/perl
use warnings;
...
$t->process(\$list,
            { list => \@array },
            \*STDOUT);