my $var = 42;
{
  local $var = 13;
  ..
}