in reply to Populating a Perl associative array with form values

my %hash = map {/\(([^\)]+)\)/; $1 => $cgi->param($_)} grep /^form_ite +m/, $cgi->param;