Select Code to Download

$c4=$a2[$i+3];
$c5=$a2[$i+4];
$i5 = $index[$i+4]; # This is new
$c6=$a2[$i+5];

{
 $peak=$c5;
 print "$i5 = $peak\n";
}