in reply to Shift Question

I feel it's possible by splice function. Please read about splice function from perldoc.