open(QUERY,">$query") or die "cannot open querry file\n";
	while ($inparr[$temp] ne "\n")
	{
		print QUERY "$inparr[$temp]";
		$temp++;
	}
	close(QUERY);

##</code><code>##

>GTM1_RAT GLUTATHIONE S-TRANSFERASE YB1 (EC 2.5.1.18) (  (217 aa) 
 WFAGDKVTYVDFLAYDILDQYHIFEPKCLDAFPNLKDFLARFEGLKKISAYMKSSRYLST 
 PIFSKLAQWSNK                                                 

>GTMU_CRILO GLUTATHIONE S-TRANSFERASE Y1 (EC 2.5.1.18)   (217 aa) 
 FAGDKVTLCGFLAYDVLDQYQMFEPKCLDPFPNLKDFLARFEGLKKISAYMKTSRFLRRP 
 IFSKMAQWSNK                                                  

>GTM1_HUMAN GLUTATHIONE S-TRANSFERASE MU 1 (EC 2.5.1.18  (217 aa) 
 LPEKLKLYSEFLGKRPWFAGNKITFVDFLVYDVLDLHRIFEPKCLDAFPNLKDFISRFEG 
 LEKISAYMKSSRFLPRPVFSKMAVWGNK                                 

>GLNA_ANASP GLUTAMINE SYNTHETASE (EC 6.3.1.2) (GLUTAMAT  (473 aa) 
 SLELALEALENDHAFLTDTGVFTEDFIQNWIDYKLANEVKQMQLRPH-PYEFSIYYDV   

>GTM4_HUMAN GLUTATHIONE S-TRANSFERASE MU 4 (EC 2.5.1.18  (218 aa) 
 LPTMMQHFSQFLGKRPWFVGDKITFVDFLAYDVLDLHRIFEPNCLDAFPNLKDFISRFEG 
 LEKISAYMKSSRFLPKPLYTRVAVWGNK