foreach my $i (@region){
$all++;
@Rgene = split " ",$i;
system "samtools depth -r $Rgene[1] $bam > $all.txt";
my $file = "$all.txt";
# print $file,"
";
open(IN2,"$file");
while(<IN2>){
chomp;
$sum++;
my @line = split " ";