Select Code to Download

foreach my $id (@ids) {
       if ($id eq $NSC) {
           print MY $line;
       }
    }

foreach my $row (@ids_table) {
    my @allcolumns = split /\t/, $row;
...
    }
    $count++;
}