my ($cluster, $member) = split;
print $cluster eq $member ? "\n" x ($. > 1) : ', ', $member;