my @deltas = map{ ( 0 <=> $y[$_-1] - $y[$_] ) } 1 .. $#y;