sub foo {
    (my $foo, state $bar) = (f(), g());
    ...
}

foo;
foo;  # Should g() be called?

##</code><code>##

state %record;
%record = ( ... );

##</code><code>##

my %record = ( ... );

##</code><code>##

state %record;
%record = ( ... ) unless keys %record;