A switch statement for Perl
