use Inline::Blocks;
print uppercaseIncrementAsString(('a', 'b', 'c', 'd', 'e', 'f')), "\n";
sub uppercaseIncrementAsString {
    my(@l) = @_;
    my $ret;
    $ret .= do {
        my($thing) = $_;
        uc do {
            my($foo) = $thing;
            ++$foo
        }
    } foreach (@l);
    $ret;
}
sub capitalize_next {
    my($thing) = @_;
    uc do {
        my($foo) = $thing;
        ++$foo
    };
}
sub increase {
    my($foo) = @_;
    ++$foo;
}