while(<INPUT2>){
         chomp;
          my @current_line  = split /\t/;
          # eliminate unqualified lines early
          next unless $current_line[2] == 1 && $current_line[3] >= 3;
          #$from = $current_line[1]-8;
          #$to = $current_line[1]+8;
              # for ($from .. $to){
              # push (@range, $_);
              #      }
              #}
        if ($file1{ $current_line[0]}) {
                ($from, $to) = @{ $file1{ $current_line[0] } };
                if ($from <= $current_line[1] && $current_line[1] <= $to) {

                print join("\t", $_, "***",$current_line[1]), "\n";


           $true_positives++;
            }
      }
}