This side of the bug has a nice effect too:

perl -le "$,='-'; @a=%h=(a=>1, a=>2); print @a"
a-a-a-2
[download]

Did anyone notice this? So having an @a in print @a = %h=(1,1,1,1); wont fix it really.