print $activ{E7F888},"\n";
for ( read_file $uniprot ) {
  next unless /(E7F888)\s+.+=([^\s]+)/;
say;    
    push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};

}
print @activline;
  
}
print @activline;