Perl doesn't have a switch statement. Well, it does, but it's called given. Since it's only available since 5.10.0, you might have some backwards compatibility issues.

Ignore suggestions to use the Switch module. It's author recommends against using it since it's a buggy proof-of-concept module. Here at PerlMonks, we've seen a number of questions about problems caused by Switch. They are basiaclly impossible to debug.

Besides, a lookup table (hash) would be much more appropriate.