#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

chomp(my @fields = <DATA>);

my $table_fieldname_array = "('" . join("','", @fields) . "')";

say $table_fieldname_array;

__DATA__
FIELD1
FIELD2
FIELDN

##</code><code>##

$ perl 1117442.pl
('FIELD1','FIELD2','FIELDN')
$