Show some small amount of code that attempts to show what you are talking about and what you are trying to do. Perl has a shift function, but that does not seem to be what you are looking for (or maybe it is?).