$ perl -E 'my ($x, @y) = (1,2,,,,,); say $#y'
0