while (($k, $v)=each (%orgs)){
	while (@k = $v->fetchrow_array()) {
		print "\t$k[0]\n";
	}
}