Select Code to Download

open OUT, ">", "$filename.counts";
foreach $chr (keys %chrsize){
...
        print OUT "$chr\t$index\t$piRNA{$chr}{$index}\n";
     }
}

open OUT, ">", "$filename.counts";
foreach $chr (keys %chrsize){
...
        }
     }
}