use 5.010;

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

my $sum = 0;
for my $num (@numbers)
{
	$sum += $num;
}

say $sum;