use Switch 'Perl6';

        given ($mystring) {
                when /key1/ { handle_Key1(); }
                when /key2/ { handle_Key2(); }
                when /key3/ { handle_Key3(); }

                default      { handle anything else; }
        }