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


##</code><code>##

my %foo;
$foo{$_} = param($_) for qw(bar baz zot);