sub sum {
     my ($numbers_ref) = @_;
     my $sum = 0;
     foreach my $num (@$numbers_ref){ $sum += $num };
     $sum;
  }
  print sum([1..100_000]), "\n";