See also Perl Best Practices Chapter 6 (Control Structures) especially:

• 6.16 Value Switches - Use table look-up in preference to cascaded equality tests
• 6.17 Tabular Ternaries - When producing a value, use tabular ternaries