use 5.030;
use strict;
use warnings;

sub counter {
    my @nums = (1..500);
    state $add = 0;
    for my $num (@nums) { $add += $num; }
    sub getter { $add } # because this sub is inside the scope of counter(), it has visibility on $add!
}

counter();
say "getter => ", getter();