Select Code to Download

SWITCH:
 foreach (keys %house){   #Note: the key is stuffed in $_
...
        p_AB();
        next SWITCH;}
  }