Select Code to Download

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