在Perl中切片数组元素