Select Code to Download

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

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