my %params = map { $_ => $q->param($_) } $q->param;