use v5.30;
use strict;
use warnings;

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

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