sub foo
{
    while (@_) { local $_ = shift; $params->{$_} = shift; }
    print "$_: $params->{$_}\n", for keys %$params;
}