... and you were expecting?

If you wanted to append that suffix to the end of *all* the strings, you probably wanted:

my @abc = ("tc1364", "tc1364", "tc1364");
print join(" ", map { "$_\\\@cde.com" } @abc), "\n";
[download]

UPDATE: Removed '\\\@cde.com' from initial term of join ... I forgot to do so before posting....