$ perl -MO=Deparse,-p -e 'my ($x, @y) = (1,2,,,,,); print $#y'
(my($x, @y) = (1, 2));
print($#y);
-e syntax OK