Which I think would work.

Why think? Why not just try it?

>perl -wMstrict -le
"my @Array = ('A', 'B', 'C');
 my $text = '\"' . join('\" \"', @Array) . '\"';
 if ($text eq '\"\"') {
   $text = '';
   }
 print $text;
"
"A" "B" "C"
[download]

(However, heed the comments of other monks concerning handling of empty strings, etc.)