perl -MO=Deparse,-p -e"@a = 1,2,3,4,5; print @a"
((@a = 1), '???', '???', '???', '???');
print(@a);
-e syntax OK