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