That works until you have a parameter where "0" is a valid value.

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