Oops. I spoke too soon. I think I got it:

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

Unless there's a simpler way?
Thanks again for the tip :^)