use strict;
use warnings;

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

{
  our $add;
  say $add;
}