How do you use given/when (smartmatch ~~, experimental) with a short example?

In Perl, the `given/when` construct allows for a switch-like behavior using smart matching. This feature is experimental and provides a cleaner way to handle branching logic based on the values of variables.

Example of given/when in Perl


        use v5.10; # Enable given/when
        my $value = 2;

        given ($value) {
            when (1) { say "Value is one"; }
            when (2) { say "Value is two"; }
            when (3) { say "Value is three"; }
            default { say "Value is something else"; }
        }