Select Code to Download

    my $start = q{AA};
    my $next  = q{AB};
...
        $next                      = _alpha_add($next);
        $count++;
    }

sub _alpha_add {
    my $string = shift;
...
    }
    return $string;
}