Select Code to Download

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

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