if ($strands{$value} =~ m/\+/) { $diff_three_prime = $LBP[$i] - $three_prime_ss[$exons2{$value} - 1]; $diff_five_prime = $LBP[$i] - $five_prime_ss[$exons2{$value} - 1]; # ...