my @array = qw (+1 -43 +5 -5 +3);
my &#36sum = ;
&#36_ >  and &#36sum += &#36_ for @array;
print &#36sum;