Select Code to Download

use List::Util qw( sum );
my $sum_of_pos = sum grep { $_ > 0 } @array;

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

my $prev;
my $sum;
...
      $sum  = $_;
   }
}