Help for this page
my $start = q{AA}; my $next = q{AB}; ... $next = _alpha_add($next); $count++; }
sub _alpha_add { my $string = shift; ... } return $string; }