Select Code to Download

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