sub foo { local $_; my ($var1, $var2) = @_; ... }