my @array = qw/one two three four five/;
$#array = 99;
print scalar @array;
__OUTPUT__
100