my $prev = $array[0];
  foreach my $elem ( @array[ 1 .. $#array ] )
  {
      push @result, compute( $elem, $prev );
      $prev = $elem;
  }