sub f {
    state $myval = myfunc ();
    ...
    g(++$myval);
}