while (@_) { local $_ = shift; $params->{$_} = shift; }