SWITCH:
 foreach (keys %house){   #Note: the key is stuffed in $_
     /^person$/ and do {
        print "My name "; #Note: the Regex works on $_
        p_CC();
        next SWITCH; }    
    /^AB$/ and do {
        print "AB ";
        p_AB();
        next SWITCH;}
  }