#!/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