"$dub_key => ", join(",",@$dub_values), "\n"

# will print
# dubhpr01.hpux => name,uid,gid,comments