$ perl -le '$#{\my @array}=100;print scalar @array'
0
$ perl -le 'my @array;$#array=100;print scalar @array'
101