A couple more lines of Perl code can emulate the exact grep -l functionality (stop reading the file when the first match is found).

If you want the speed that grep -l would give you then have a look at List::Util::any instead. It has an XS version and is in Core.