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