Is the following code different somehow?

Yes. Perl 5 doesn't perform dataflow analysis to prove that $str can't possible change between assignment and the symbolic reference.

I can think of a way to make test call a function besides greet without personally writing any XS.