switch(case)
case A :do somehing 
case B :do some other thing

##</code><code>##

 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 ...
    }