exists $INC{$_} and not exists $i{$_} and print "$_ added" for keys %INC;;

##</code><code>##

exists $i{ $_ } or print "$_ added" for keys %INC;