my @GI = ("\Qgi|Q384722390|emb|WP_938420210.1|Gene name\E","\Qgi|342546780|emb|WP_934203412.1|Gene name\E");
my @Accession = ("WP_938420210.1","WP_934203412.1");

##</code><code>##

 my $X = 0;
my $Y = 0;
while($X <= 468){ 
	if(/$Accession[$X]/ =~ $GI[$Y]){
		print $GI[$Y];
		$X = $X + 1;
		$Y = 0;
													  }
	else{$Y++};
							 }