s/[\015\012]//g foreach @rel; # first remove *all* newlines
join(" & ", map { sprintf "%-8s (x%s)", $_, 0+@{$rel_hosts{$_}} } @rel) . "\n"; # add it at the end