my %Queues;
$sql = "a valid sql statement";
		$sth = $dbh->prepare($sql);
		$sth->execute();
		while (my @Row = $sth->fetchrow_array()) {
			my %Hashes;
			$Hashes{QueueID} = 0;
			$Hashes{Queue} = $CustomQueue;
			$Hashes{MaxAge} = 0;
			$Hashes{Count} = $Row[0];
			#print "Record Count  =  $Row[0] \n";
			push (@{$Queues{Queues}}, \%Hashes);
			# set some things
			if ($QueueId == 0) {
				$Queues{TicketsShown} = $Row[0];
				$Queues{TicketsAvail} = $Row[0];
			}
		}

##</code><code>##

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