my %param;
$param{$_} = $q->param($_) || '' for $q->param(); # or a fixed list of params ;-)