#234567890123456789012345678901234
grep{open F,$_;map/$_[0]/,<F>}<*>