A switch statement for Perl Damian Conway (damian@conway.org)