Perl was "fixed" between 5.005_03 and 5.6.1, such that it better understands references.

If you run this program under 5.005_03, it (wrongly) understands *a as a string. Under 5.6.1 or later, you have to say "*a" to get a string.