my @array = qw (-45 -355 +1 +55 -23);
for $a (@array) {$sum += $a if ($a > 0)}
print $sum;