for (keys %INC) { delete $INC{$_} if ! $old_INC{$_}; }