如何从html中的表单提取多个select字段的值到perl变量

Question

我正在使用带有cgi的perl来提取HTML中多选选项字段的选定值。因此我的HTML代码如下：

<select name="event_id" multiple>
<option value='EVENT_101'>EVENT_101</option>
<option value='EVENT_102'>EVENT_102</option>
</select>

现在，我的perl代码如此：

my $write = FileHandle->new(); //And in the next few lines I open the file using perl open3()
my @event_ID = $q->param('event_id');
printf $write "#event_id";
foreach my $event(@event_ID) {
   printf $write " %s",$event;
}

我将这些值写入scala文件的标准输入。我还写了一些其他单个变量（我的意思是，不是数组）。问题是，所有其他值都是正确写入的，但仅针对上面的代码，只有第一个选定的值被写入stdin。其余的都被忽略了。我在哪里出错了？