my %orgs = ("Center", "cent_sth", "Div", "div_sth", "Dept", "dept_sth")
while (($name, $this_sth)=each (%orgs)){
	$this_sth=$dbh->prepare("SELECT DISTINCT $name FROM People");
	$this_sth->execute() or die "Failed to retrieve list of $name from database. $DBI::errstr";
}