$ perle '
    say counter() for 1..3;

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