perl——除了最后一个，如何提取数组的所有元素?

I need to extract all elements in an array except the last and store them in a scalar for later use. At first, I thought this would be possible using array slices, but it appears that you cannot count backwards. For example: I need to extract all elements in an array exce