$ perldoc -f splice
   . . .
   If LENGTH is negative, leaves that many elements off the end of the array.