> perl -MO=Deparse -e 'print +(1,2,3,4)[4]'
print((1, 2, 3, 4)[4]);
-e syntax OK