>perl -E"say scalar( (4,5,6) )"
6

>perl -E"say scalar( ($x,$y)=(4,5,6) )"
3