foreach $person (keys %house){
{
    if $person eq "CC"){
        print "My name ";
        p_CC();}
    elsif $person eq "AB"){
        print "AB ";
        p_AB();}
    elsif $person eq "CD"){
        print "My friend ";
        p_CD();} 
    ....
    ##for the whole element
    else ...
    }