use Modern::Perl;
use warnings;
use strict 'refs';
BEGIN {
    $^H{'feature_say'} = q(1);
    $^H{'feature_state'} = q(1);
    $^H{'feature_switch'} = q(1);
}
my $x = 2.3;
given ($x) {
    when ($_) {
        say 'match';
    }
    default {
        say 'no match';
    }
}