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"]