Looks like a double loop to me. The grep loop and the =~ loop unless perl will replace =~ LIST with hash lookups.