# Function to add a list of numbers together
sub sum {
	my @numbers = @_;
	my $sum = 0;
	for (my $i = 0; $i <= $#numbers; $i++) {
		$sum += $numbers[$i];
	}
	return $sum;
}

##</code><code>##

use List::Util 'reduce';
sub sum {
	my @numbers = @_;
	return reduce { $a + $b } @numbers;
}

##</code><code>##

sub sum {
	my $sum;
	$sum += $_ for @_;
	return $sum;
}

##</code><code>##

use List::Util 'sum';