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

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

##</code><code>##

use Data::Dump; # somewhere before in the code

# then 
"$dub_key => ", Data:Dump::dump($dub_values), "\n"

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