Help for this page
my @array = ( ... ); my @adj_diff; ... { push @adj_diff, $array[$i+1] - $array[$i]; }
my @adj_diff = map { $array[$_+1] - $array[$_] } 0 .. $#array-1;