my $K = <>;
my $sum = 0;
$sum += $_ for split ' ', "5 6 7 8\n", $K;
print $sum;

##</code><code>##

K sum
0 26
1 5
2 11
3 18
4 26
5 26