# @INC is (a,b,c) here { use lib::lexical "d", "e"; # @INC is (d,e,a,b,c) here require Foo; { no lib::lexical "b", "c"; # @INC is (d,e,a) here require Bar; } # @INC is (d,e,a,b,c) here } # @INC is (a,b,c) here #### # @INC is (a,b,c) here { local @INC = ("d", "e", @INC); # @INC is (d,e,a,b,c) here require Foo; { local @INC = grep { $_ ne "b" && $_ ne "c" } @INC; # @INC is (d,e,a) here require Bar; } # @INC is (d,e,a,b,c) here } # @INC is (a,b,c) here