sub foo {
  local $_ = $_; # protect $_ and still use it
  ...
}