处理作为数组发送的Post数据

我有一个HTML表单,它发送一个隐藏字段和一个同名的单选按钮。

这允许人们提交表单而不从列表中选择(但记录的答案为零)。

当用户 做 选择一个单选按钮,表单将同时发布隐藏值和选定值。

我想编写一个Perl函数来将post数据转换为散列。以下适用于标准文本框等。

#!/usr/bin/perl
use CGI qw(:standard);
sub GetForm{
    %form;
    foreach my $p (param()) {
         $form{$p} = param($p); 
    }
    return %form;
}   

但是,当面对两个同名的表单输入时,它只返回第一个表单输入(即隐藏的表单输入)。

我可以看到输入作为一个数组包含在post头中,但我不知道如何处理它们。

我正在处理旧代码,因此很遗憾我无法更改表单!

有办法吗?