Good point! The function select acts as if it controls an anonymous global variable. That 'variable' has all the advantages and disadvantages of any global variable except that we cannot examine it. In your example, we all expect say to output to stdout. It is easy to forget that it may not be true.

Until the documentation for say is corrected, the victim of this bug could certainly claim that the bug is in perl, not his code.