sub foo {
  my $var;
  {
    $var++;
  }
}