my $counter = 0;
my $generator = sub { ++$counter };

while (1) {
    print $generator->();
}

##</code><code>##

my $gimme_an_A = sub { 'a' };

while (1) {
    print $gimme_an_A->();
}