use 5.030;

sub counter {
	my @nums = (1..500);
	state $add= 0;
	for my $num(@nums) { $add += $num}
}

say "$add";

https://www.perlmonks.org/?node_id=11121379;displaytype=edit