Or, as already mentioned, use Switch.

Oh no, don't. Use given, when if you're running perl 5.10, or use some other nethod, but don't use Switch.pm if you can. It's a source filter so it's slow, prone to weird untractable bugs, won't work in "eval", etc.