http://www.perlmonks.org?node_id=1006778


in reply to Last index use in array slice

splice does the trick:

print join ', ', splice @{[split '', '1234567890']}, 5;

Prints:

6, 7, 8, 9, 0
True laziness is hard work