Select Code to Download

  my @array = ( ... );
  my @adj_diff;
...
  {
      push @adj_diff, $array[$i+1] - $array[$i];
  }

  my @adj_diff = map { $array[$_+1] - $array[$_] } 0 .. $#array-1;