use v5.30;
use strict;
use warnings;

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

my $got = counter();
say "got => ", $got;