sub capitalize_next {
    my ($thing) = @_;
    uc inline increase($thing);
}
sub increase {
    my ($foo) = @_;
    ++$foo;
}