my %hash = map { split(m'='x, $_, 2) } grep { m'='x } split(m'&'x, get_params());