$pdl[ $_ -1 ] -= $pdl[ $_ ] for reverse 1 .. $#pdl;