$ perl -E 'say scalar ( ($a, $b) = () )'
0
$ perl -E 'say scalar ( ($a, $b) = (undef, undef) )'
2