Thanks to all who responded, particularly, to Util and hbm, and their suggestions. The use of splice and the ternary "?:" were inspirational. I think I need to read the perldocs again as the next step towards improving my code.