This is in the FAQ, perldoc -q CASE
There is also a Switch.pm on CPAN under DCONWAY.

Cheers,
KM