while(<IN>) {
   my @cols = split(/\t/,$_);
   my $id = $col[0];
   if ($GeneIDS{$id} ) {
     say "found $id";
   }
}