no strict;
{
	while(w){
		# select a question
		($k,$v)=each%q;
		# try again if no more questions (end of hash)
		$k||redo;
		# ask question, get proper animal from question hash
		$t2=$$v[a($k)];
		# guess animal, end loop if found answer
		next if(g($t2));
		# lookup keys with value[0] matching $t2
		while(($k2,$v2)=each%q){
			next unless$$v2[0] eq $t2;
			# if key exists, ask question
			# if answer negative, ask new animal
			a($k2)?$t5=$$v2[1]:goto NEW;
			goto END if(g($t5));
		}
		# else, ask new animal
NEW:
		# ask new animal
		$t4=i($t2,$t3=t);
		# add to question hash
		$q{$t4}=[$t2,$t3];
END:
	}
}