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