One should mention that newer versions of Perl do have a sane alternative, that's

use 5.010;
given ($foo) {
   when ($condition) { code }
   ...
}
[download]

(described in perlsyn)