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