I borrowed a bit/most of your code but how about 39

#         1         2         3         4
#1234567890123456789012345678901234567890
grep{open F,$_;$_ if grep/$_[0]/,<F>}<*>
[download]

Update: Added Code Tags. --
Pug