Switch - A switch statement for Perl