my  @add=(
{
  name=>"Submode",
  value=>[ 'Ford Prefect', 'Slartibartfast' ],
}
);
i pass this array of  to template by
my %data = (
            add => \@add );
my $template = Template->new({
});
$template->process(temp.tmpl, \%data)
    || die $template->error();

##</code><code>##

[% FOREACH element = add %]
<textarea rows="4" name="[%element.name %]" >
 [% FOREACH option = element.value %]
 [% option %]
 [%END%]
</textarea>
[%END%]