$ perl -e'
-> @l = (1, 2, 3);
-> print @l, qq{\n};
-> print qq{@l\n};
-> $" = q{,};
-> print qq{@l\n};'
123
1 2 3
1,2,3
$

##</code><code>##

use strict;
use warnings;

my @flds = qw{Leesville TX 23432 67867 88 Bloggs F};
my @quotedFlds = map { qq{"$_"} } @flds;

{
    local $" = q{,};
    print qq{@quotedFlds\n};
}

##</code><code>##

"Leesville","TX","23432","67867","88","Bloggs","F"