Learn to Switch with for

• Though Perl has no built-in switch statement, this is not a hardship but an opportunity
• It's easy to build one
• The word `for' is sometimes pronounced `switch'

    SWITCH: for ($where) {
      /Kitchen/     && do { push @flags, '-e'; last; };
      /Lounge/      && do { push @flags, '-h'; last; };
      /Porch/       && do {                    last; };
      die "unknown value for variable where: `$where'";
    }
  

• Like a series of elsif's, a switch should always have a default case, even if the default case `can't happen'