Switch statement for Perl
