$fix[$k]=1 if ($breakpoint{$chr}{$i}==1);

##</code><code>##

$S[$k]=0 if ($S[$k]<0 || $fix[$k]==1);