You realize that your additional commas are completely ignored by the perl interpreter?

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