sub findCharacterAsKey {
	my $loebnerLetter = shift;
	while (($key, $value) = each %$keymap)
	{
	  if($loebnerLetter eq $value) {
		printf("$loebnerLetter maps to $value so returning $key\n"); 	 	
		return $key;
	  }
	}
}