my @names=$q->param; foreach my $str (@names) { $sr->{$str} =$q->param($str); }