note
petral
Well cooked!  Oddly enough, all you need is:
<code> splice @{$vips{$k}{'stack'}}, 0, -50;
</code>
It will leave the array untouched if it is not greater than 50.
<code>$ perldoc -f splice
. . .
If LENGTH is negative, leaves that many elements off the end of the array.</code>
(I guess they mean "off the deleted array" -- at all events, that's how it works (and also what makes sense). 
It's explained clearly [213388|here]!)
<br><br>  <i>p</i>
214252
214276