my @param_names = $q->param();
my %present_params;
@present_params{ @param_names } = (1) x @param_names;