$ perl -E '
    use strict;
    use warnings;
    use experimental "switch";

    given (1) { say "Hello" }
'
Hello