{    # localize $foo
   my $foo = 0;
   use constant FOO_CYCLE => 23;

   sub note_a_foo {
      $foo++;
   }

   sub check_foo {
      return unless $foo >= FOO_CYCLE;
      $foo = 0;
      do_something_about_foo;
   }
}