use File::Grep qw(fgrep) x fgrep { /list\:\:util/i } values %INC