$ perle '
    my $add;

    for (1..3) {
        $add = counter();
        say "... other processing here ...";
        say $add;
    }

    sub counter {
        state $add;
        $add += $_ for (1..5);
        return $add;
    }
'
... other processing here ...
15
... other processing here ...
30
... other processing here ...
45