sub localize_a_and_call_fn(&@) {
    my ($fn, @args) = @_;
    local *a = sub { "changed" };
    $fn->(@args);
}