splice @{$vips{$k}{'stack'}}, 0, -50;


##</code><code>##

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