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