my @names = qw[Center Div Dept];
my %orgs;
foreach my $name (@names) {
    $orgs{$name} = $dbh->prepare("SELECT DISTINCT $name FROM People") or die;
    $orgs{$name}->execute or die;
}