Rolf as the song goes- YOU ARE SIMPLY THE BEST.. Whenever I see your name in a reply, I rejoice!

Curiously, I was on the right track because I was looking at List::Util qq(pairs) to solve this but it only seemed to work on arrays. I didn't see pairgrep , looks very useful. I'll try that today after studying your example.