for ($i=0; $i<= $#allkeys; ++$i){
	@join="";
	if ($allkeys[$i] == $allkeys[$j]) {
		unless ($i == $j) {
	        do something
		}
	}
	$i++;
	$j = $j-1;
}