use List::Util qw(sum);
print sum (my @arr = qw( 1 3 5 6));