Whether or not you knew your point, you had a good one and I just learned something that I should have known. ;-)

Perl calls by reference, returns by value. The "return by value" semantic means that the returned scalar is different - at least different enough to forget any pos information. Which means that it would be difficult to impossible for one to design a function that could be called in a loop like this without causing a problem.