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