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};
}