Can pdl efficiently(*) perform the equivalent of the following operation on a piddle?
$pdl[ $_ -1 ] -= $pdl[ $_ ] for reverse 1 .. $#pdl;
(*)Ie. Without converting every element to a perl var, perform the math and then convert the result back, and assign it back.
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.