my $score = 100_000;
open my $IN, '<', $arq or die "Cannot open '$arq' because: $!";
while ( <$IN> ) {
     chomp;
     open my $IN1, '<', $_ or die "Cannot open '$_' because: $!";
     while ( <$IN1> ) {
         my @temp = split /\t/;
         if ( $temp[ 1 ] < $score ) {