my $quoted =  join ',', map{qq{"$_"}} qw(foo bar bas);

$quoted is now "foo","bar","bas"