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