#!/usr/bin/perl

use strict;
use warnings;

my @array = qw( 3 2 8 9 -25 5 8 4 4 -3 5 3 -10 );

my $length = scalar(@array);
my $sidx;
my $eidx;
my $max = 0;

my $start = 0;
while($start < $length) {
        my $sum = $array[$start];
        for(my $end = ($start + 1); $end < $length; $end++) {
                $sum += $array[$end];
                if($sum > $max) {
                        $sidx = $start;
                        $eidx = $end;
                        $max = $sum;
                }
        }
        $start++;
}