Take a look at the Perl v5.8.8 manpage for perlsyn (Basic BLOCKs and Switch Statements). Look for "A common idiom for a switch statement is ..." followed by a code example similar to what you've posted here. :-)