Select Code to Download

use strict;
use warnings;
...
  next if $id_list{$subline_array[3]}++;
  print OUT "$line_in\n";
}