use strict;
use warnings;
use Data::Dumper;
open (FILE, "/Users/Pabli/Desktop/gene_association.goa_human");
open (FILE2, "/Users/Pabli/Desktop/go3.obo");  
while(<FILE>) { 
	               
    my @array_with_all_fields=split(/\t/);
    if ($array_with_all_fields[2] eq "TP53"){
     
   	my $mio=$array_with_all_fields[4];
   	my %go_accession_hash=($mio,'');
   	
   my @test2= keys %go_accession_hash;
   
   }
    }
 
		
while(<FILE2>){
	
	print "".$test2[0]."\n";
	
}  
  

close FILE;
close FILE2;