thanks for your help. passing vars to subs is something I haven't seemed to find yet. perldoc perlsub, if it says so, doesn't make it clear to a newbie.
Thanks again, James