If you have 5.10 or newer perl, I would use the smart match operator using the same logic. Smart match generally benchmarks significantly faster than grep and first.