sub capitalize_next {
    my ($thing) = @_;
    uc do { local @_ = ($thing);
#line 6
      my ($foo) = @_;
      ++$foo;
#line 3
    };
}
sub increase {
    my ($foo) = @_;
    ++$foo;
}