use Data::Dumper;
print Dumper(["$computer.$domain", $group, \@users]);