in reply to Perlish way of doing this

Thanks BrowserUk and
fglock
Exactly what I was looking for ...

In Section Seekers of Perl Wisdom