A switch statement for Perl