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