for $i ( 0 .. $#{ $hash{"CEO"} } ) {
   print $hash{"CEO"}[$i] . "\n";
    }