Perl 5 kennt kein switch-Statement, in Perl 6 heißt das vergleichbare Konstrukt given und hat eine ganz andere Syntax als das, was Du hingeschrieben hast.