Less verbose in debug=1

yt/subscribe.pl

@@ -337,7 +337,7 @@ sub findFiles($) {
 	close($fh);
 
 	if ($DEBUG) {
-		print STDERR "\nFound " . scalar(keys(%files)) . " files:\n\t" . join("\n\t", keys(%files)) . "\n";
+		print STDERR "\nFound " . scalar(keys(%files)) . " files:\n\t" . join(', ', keys(%files)) . "\n";
 		if ($DEBUG > 1) {
 			print STDERR prettyPrint(\%files, "\t") . "\n";
 		}
@@ -462,7 +462,7 @@ sub findVideos($) {
 	}
 
 	if ($DEBUG) {
-		print STDERR "\nFound " . scalar(keys(%videos)) . ' videos for YouTube user ' . $user . ":\n\t" . join("\n\t", keys(%videos)) . "\n";
+		print STDERR "\nFound " . scalar(keys(%videos)) . ' videos for YouTube user ' . $user . ":\n\t" . join(', ', keys(%videos)) . "\n";
 		if ($DEBUG > 1) {
 			print STDERR prettyPrint(\%videos, "\t") . "\n";
 		}