#!/usr/bin/perl

use strict;
use warnings;
use Carp 'verbose';
use HTML::Template;


my $temp_text = <<EOT;
 <select name="type">
		  <tmpl_loop name="TYPE"> 
		  	<option value="<tmpl_var name="n_event">" <tmpl_var name="sel">> <tmpl_var name="t_event">
			</option>
		  </tmpl_loop>
 </select>
EOT

my $tpl = HTML::Template->new(scalarref => \$temp_text);
my @ary = map {n_event => $_, sel=>$_,t_event=>$_},
  qw(foo bar baz cliche trope);
$tpl->param(TYPE=>\@ary);
print $tpl->output;
__END__
 <select name="type">
                   
                        <option value="foo" foo> foo
                        </option>
                   
                        <option value="bar" bar> bar
                        </option>
                   
                        <option value="baz" baz> baz
                        </option>
                   
                        <option value="cliche" cliche> cliche
                        </option>
                   
                        <option value="trope" trope> trope
                        </option>
                  
 </select>