sub A { return 'B' };

# ... 1000 lines of complicated code ...

my $string = A;
print "$string\n"; # this prints "B"