if ($p == 1 ) {
    push @points, @peaks[7..$#peaks];
}