my $score=100000;
open (IN, $arq);
while (<IN>) {
     open (IN1, $_);
     while (<IN1>) {
         my @temp=split(/\t/);
         if ($temp[1]<$score) {