my $sr; foreach my $str qw(email name) { $sr->{$str}=$q->param($str); }