use strict;
use warnings;

{
  my $x = 'A';
  sub f { sub { $x++ } }
  sub g { sub { $x++ } }
}
my $F=f();
my $G=g();
print $F->(),$G->(),"," for 1..4;

### RESULT ###
01,23,45,67,
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.