That's why I would probably not write this:

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

But rather this:

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

It's more compact and maintainable.

-- Randal L. Schwartz, Perl hacker