If you can't understand it, how could you re-write it?

This code might possibly be daunting at first glance, but someone moderately versed in Perl would have no trouble parsing it. This is practically self-documenting. "Record all the values between the value of an element and the value of the next one, for every element in the array (except the very last)."