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