Perlメモ: 配列のサイズを切り詰める

$#ARRAY = 10;

切り詰めた後のサイズをよりも、１つ小さい値を指定することに注意してください。