for (my $i = 1; $i < @unique_slopes; $i++)    {
     if (($unique_slopes[$i] < -0.1)  && ($unique_slopes[$i-1] > 0.1)) {
       print "PEAKS: $unique_slopes[$i-1] $unique_slopes[$i]<P>";
     }
  }