Select Code to Download

join(" & ", map { sprintf "%-8s (x%s)", $_, 0+@{$rel_hosts{$_}} } @rel
+);

my @rel = ("test1", "test2", "test3");

my $test = join(" & ", map { sprintf "%-8s (x%s)", "$_\n"}     @rel);