my %foo = (BAR => $cgi->param('bar'), 
           BAZ => $cgi->param('baz'), 
           ZOT => $cgi->param('zot'), 
          );