sub outer {
    my $foo ;
    ....
  } ;

  { my $foo ;

    sub inner {
      $foo++ ;
    } ;
  } ;