my ( $prev, @rest ) = @array;
  foreach my $elem ( @rest )
  {
      push @result, compute( $elem, $prev );
      $prev = $elem;
  }