my @names = ("Donald Duck","Mickey Mouse"); my $joined = join ",", map { "'$_'" } @names; print $joined,"\n"; my $joined2 = sprintf("'%s'", join "','", @names); print $joined2,"\n";