sub walk {
    my ($person, $level) = @_;
    say " " x $level, $person;
    for my $lower (@{ $hash{$person} }) {
        walk($lower, $level+1)
    }
}

walk("CEO",0);