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