my @names=$q->param; foreach my $str (@names) { if (ref($str) eq "ARRAY") { my @multi=$q->param($str); sr->{$str} =\@multi; }else { $sr->{$str} =$q->param($str);} } }