use 5.010;

sub my_sub (&) {
    my $code = shift;
    local $_ = '1234';
    $code->();
}

my_sub { say };

given ("test") {
    when ("test") {
        my_sub { say };
    }
}