G'day pritesh_ugrankar,

Some preamble:

use 5.030;
use warnings;
[download]

$ alias perle
alias perle='perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -E
+'
[download]

$ perl -v | head -2 | tail -1
This is perl 5, version 32, subversion 0 (v5.32.0) built for cygwin-th
+read-multi
[download]

Here's an example of what you could have done that makes sense of the use of state (using slightly easier to follow numbers):

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

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

You could've also assigned the return value and used it later. This example also shows two $add variables, used in different lexical scopes, with no conflict.

$ 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
[download]