Perl中数组的delete操作

PERL中使用delete 操作符删除数组元素时，数组下标并不会减小，而仅仅是对应下标的值变为 undef。
如  @array = ( 1, 2, 3 )   这时下标为数组元素下标分别为0， 1， 2 ，数组包含三个元素。使用 delete $array[1] 之后，数组仍然包含三个元素，下标仍然是0,1,2，此时元素值为 (1, undef, 3 )，这一点在使用时要注意。