Select Code to Download

for my @PAR1_info (@PAR1) {
     
...

        my $PAR1_diversity = (($pi_sum/$L_sum)/($differences_sum/$cove
+rage_sum));
}

    $pi_sum = 0;
    $L_sum = 0;
...

           my $PAR1_diversity = (($pi_sum/$L_sum)/($differences_sum/$c
+overage_sum));
    }

    $pi_sum = 0;
    $L_sum = 0;
...

           my $PAR1_diversity = (($pi_sum/$L_sum)/($differences_sum/$c
+overage_sum));
    }

my @X_info = <CHR_X_INPUT>;
chomp(@X_info);