my $where = 0;
my $sum = $num[0] + $num[1] + $num[2];
for ( 1 .. $#sum-2 ) {
  my $try = $num[$_] + $num[$_+1] + $num[$_+2];
  if ( $try > $sum ) {
    $try = $sum;
    $where = $_;
  }
}