my $sum_of_pos = 0;
for (@array) {
   $sum_of_pos += $_ if $_ > 0;
}