foreach my $dir (grep { ! ref } @INC) {