submitでのデータの受け渡しについて

質問

submitにてデータを受け渡すときについての質問となります。
変数を一つ受け渡す場合はこのようにすればいいと思うのですが、

print start_form;
print submit('abc');
print hidden(
-name => 'sample',
-value => $a
);
print end_form;

2つ以上の変数を受け渡す時には、どのようにすれば良いのでしょうか。

my $a = "red";
my $b = "black";

my @ab = ($a, $b);

print start_form;
print submit('color');
print hidden(
-name => 'sample',
-value => @ab
);
print end_form;

#######################################

my ($a, $b) = param('sample');

print $a;
print $b;

というふうにすると、print $a;はredを表示してくれますが、
$bにはblackは入っておらず表示してくれません。
どのようにすれば、配列を渡して、変数２つを受け取ることができるのでしょうか？？

ご回答よろしくお願い致します。

回答No.1

_--_1l1_1_ · ベストアンサー

同じ名前を使えばOKです。
print hidden(
-name => 'sample',
-value => $a
);
print hidden(
-name => 'sample',
-value => $b
);

これで、sampleというパラメータで2つ値がとれます。