use Inline::Blocks;

inline sub capitalize_next;

print uppercaseIncrementAsString('a'..'f'), "\n";

sub uppercaseIncrementAsString {
    my @l = @_;
    my $ret;
    $ret .= capitalize_next($_) for @l;
    $ret;
}

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