for (keys %modules) {
   if (/cgi/i) { print "Found one $_\n" }
}