my %Data = getQueues();

while (my ($key,$value) = each(%Data)){
	#print "$key = $value \n";
	for(my ($k,$v) = each($key->{'Queues'})){
		print "$k = $v \n";
	}
}