using local with a variable is one of them

my $var = 42;
{
  local $var = 13;
  ..
}
[download]

This is particularly useful when dealing with $@ like explained in eval doc:

    {
      local $@; # protect existing $@
      eval { ... };
[download]