my @array=(1,2,3,4,-1,-2,-3,11,12,13);
my @sums=();
my $last=0;
map {
  push @sums, $last+$_ if $last>0 and $_>0;
  $last=$_;
} @array;
my $max=0;
map {$max=$_ if $_>$max } @sums;

print "Max sum: $max\n";
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.