my %actions = (
  CC => sub { print "My name "; p_CC(); },
  AB => sub { print "AB "; p_AB(); },
  CD => sub { print "My friend "; p_CD(); },
);

for (keys %house) {
  $actions{$_}->();
}