Perl 向模板工具箱中的哈希添加值

我有一个散列，我在模板工具箱中迭代它的键。 下面是一个例子

<SELECT NAME="SelectList_[% feed.num %]" ID="SelectList_[% feed.num %]" SIZE="5" style="width: 250px;" MULTIPLE>
  [% FOREACH xvar = feed.xvars.keys %]
     <OPTION VALUE="[% xvar %]">[% xvar %]</OPTION>
  [% END %]
     <OPTION VALUE="X_File_Name">X_File_Name</OPTION>
</SELECT>

---

希望这会增加散列的值（而不是删除它）。没有这样的运气。查看模板工具包手册，谷歌搜索也不会产生任何结果。有人知道怎么做吗？

我问了这个问题后，我就明白了

[% appendval = { "X_File_Name" => "1" } %]
[% feed.xvars.import(appendval) %]

---

有一个简单得多的方法：

[% feed.xvars.X_File_name = 1 %]

您可以使用点语法访问TT散列中的各个元素

[% appendval = { "X_File_Name" => "1" } %]
[% feed.xvars.import(appendval) %]

[% feed.xvars.X_File_name = 1 %]