Doh!

Thanks to all, i'd been struggling to make anything work with join, and it's been a few years since i've done any serious perl coding.

The reference worked a treat

Thanks again