Perl Switch Statement