while(<@INC>)
[download]

Is very suspect code.... You probably want something like:

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

See Why is @array so slow? for more details.

-Blake