>perl -E"say scalar(  ($x,$y)=()  )"
0

>perl -E"say scalar(  ($x,$y)=(undef)  )"
1

>perl -E"say scalar(  ($x,$y)=(undef,undef)  )"
2

>perl -E"say scalar(  ($x,$y)=(undef,undef,undef)  )"
3