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