sub sum {
     my ($numbers_ref) = @_;
     my $sum = 0;
     foreach my $i (0 .. $#{ $numbers_ref }) {
       $sum += $numbers_ref->[$i];
     }
     return $sum;
  }