Select Code to Download

foreach my $line (@data)   {
...
   }
}

   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>";
     }
  }