输出后当作输入文件

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