use 5.010;

my @numbers = qw(1 3 5 6 7 8);

sub sum
{
	my $sum = 0;
	for my $num (@_)
	{
		$sum += $num;
	}
	return $sum;
}

say sum(@numbers);