while(<@INC>) 

##</code><code>##

my @copy = @INC;
while(defined($_ = shift(@copy))) {
  # push to @copy as necessary
}