Consider splice...

my @array = (1, 2, 3, 4, 5, 6);
splice @array, -3, 1;
# @array is now (1, 2, 3, 5, 6).
splice @array, 2, 1;
# ...and now it's (1, 2, 5, 6).
[download]

scott.