my $gimme_an_A = sub { 'a' };

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