#!/usr/bin/perl --

use strict;
use warnings;

my @Array = ("A", "B", "C");
my $text;
if(@Array){
   $text = join ' ', map { qq!"$_"! } @Array;
}

warn $text;

$text = @Array ? join ' ', map { qq!"$_"! } @Array : '';

die $text;
__END__
"A" "B" "C" at - line 12.
"A" "B" "C" at - line 16.