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