A switch statement for Perl, do not use if you can use given/when Damian Conway