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

##</code><code>##

my %params = @_;