my $i = 0;
foreach my $match(@exonic_matches) { 

$value = $exon_ID[$i];
$col = $exon_left{$value};
#...

##</code><code>##

my $i = 0;

foreach my $match(@exonic_matches) { 
    $value = $exon_ID[$i];
    $col = $exon_left{$value};
    #...
}

##</code><code>##

my $i = 0;

foreach my $match(@exonic_matches)
{ 
    $value = $exon_ID[$i];
    $col = $exon_left{$value};
    #...
}

##</code><code>##

    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]; 
    # ...

##</code><code>##

    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]; 
        # ...