$ perl -MO=Deparse -e 'print scalar (2, 5, 7, 9);'
print scalar('???', '???', '???', 9);
-e syntax OK