my @LIST = ( A..Z );
print $LIST[$#LIST]; # Z
$#LIST = 5;
print $LIST[$#LIST]; # F
push @list, '-';
print $#LIST; # 6

言語仕様のミスだなんてとんでもない。