Select Code to Download

my $i = 0;

...
    
    $Num_OF_PER++;
    }

foreach my $PER_item (@major_PER_Data) {
   my $i = 0;
...
   
   $Num_OF_PER++;
}