use strict;
use warnings;
open (FILE, "/Users/Pabli/Desktop/do_human_mapping.gmt");
       
my @array_with_all_fields=();
my @mio=();
       
while(<FILE>){
                   
   @array_with_all_fields=split(/\t/);
   
   if ($array_with_all_fields [1] eq "DOID:2055"){
   print "".$array_with_all_fields[]."\n"; 
   
   }
  }
close FILE;