Perl's function bindings are statically scoped, not dynamically scoped, so we can't bind the name to a new entity in a different evaluation context.

You can, of course, do:

sub func { return "original value.\n" }
sub print_func { print func(), " "; }
    
sub redefine_func {
    local *func = sub { return ("local value.\n") };
    print_func();
}
[download]

Which is still binding an identifier to an entity by your definitions (I think :-)