Quote and Join

my @names = ("Donald Duck","Mickey Mouse");

my $joined = join ",", map { "'$_'" } @names;
print $joined,"\n";

my $joined2 = sprintf("'%s'", join "','", @names);
print $joined2,"\n";