In addition to all other suggestions, I recommend that you use the function "any" (from List::Utils) rather than grep. The name makes your intention clear. It can also be slightly faster because it shortcuts after the first match.