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