Select Code to Download

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

 foreach $person (keys %house){
{
...
    ##for the whole element
    else ...
    }