#!/usr/bin/perl -w

use strict;

use Data::Dumper;

use debug;

{
	my %tstinf = ();

	$tstinf{'Animal'}{'Mammal'}{'Domesticated'}{'Dogs'}{'Poodle'} = 1;
	$tstinf{'Animal'}{'Mammal'}{'Domesticated'}{'Dogs'}{'Greyhound'} = 1;
	$tstinf{'Animal'}{'Mammal'}{'Domesticated'}{'Weasels'} = 1;
	$tstinf{'Animal'}{'Mammal'}{'Undomesticated'}{'Cats'}{'Siamese'} = 1;
	$tstinf{'Animal'}{'Mammal'}{'Undomesticated'}{'Cats'}{'Calico'} = 1;
	$tstinf{'Animal'}{'Reptile'}{'Land'}{'Lizard'}{'Gekko'} = 1;
	$tstinf{'Animal'}{'Reptile'}{'Land'}{'Lizard'}{'Salamander'} = 1;
	$tstinf{'Animal'}{'Reptile'}{'Land'}{'Tortoise'}{'Spengleri'} = 1;
	$tstinf{'Animal'}{'Reptile'}{'Water'}{'Mocassin'}{'Blackhead'} = 1;
	$tstinf{'Animal'}{'Avian'}{'Bird'}{'Predator'}{'Raptor'} = 1;
	$tstinf{'Vegetable'}{'Ground Plant'}{'Edible'}{'Leafy'}{'Lettuce'} = 1;

	my @unikey = &getUniqueKeys('', \%tstinf);

        print Dumper \@unikey;
}