I have to admit to using the following structure when in need of a switch compatible statement in perl 5.14 and earlier i.e. when feature, as mentioned elsewhere in this discussion, is not available...

SWITCH: {
  <cond 1> && do {
    .
    .
    last SWITCH;
  };

  <cond 2> && do {
    .
    .
    last SWITCH;
  };

  # default
  .
  .
}
[download]

...and I got this from this very portal :-)